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If you were very lucky you may 
have been able to get to the Oric 
stand at the recent Computer 
Fair at Earls Court in London. 
For most of the time the exhibi- 
tion was packed solid, particu- 
larly around the Oric stand. This 
was Orics first appearance at a 
show of this kind and _ the 
response was overwhelming. 
Although the staff at the stand 
were expecting the inevitable 
barrage of complaints there 
were very few people who actu- 
ally had something to complain 
about. Most people were gener- 
ally very pleased with their 
machine and only had a few 
technical questions to ask. One 
difference between Oric and the 
other hardware manufacturers is 
that for most of the exhibition 
several of the directors of the 
company were available on the 
stand to answer questions. Paul 
Johnson, designer of the Oric, 
was seen heavily involved in 
discussing technical points with 
several people and Peter Hard- 
ing and Barry Muncaster were 


seen demonstrating the machine 
or recommending software. 


Software was on display from 
several companies including 
Salamander with their Oric- 
Trek and A & F Software with 
their version of Painter. Also 
available was a joystick from 
PASE. This simply plugs into 
the printer port and allows the 
connection of two Atari type 
joysticks for high speed games. 


The Oric Printer got its first 
public showing and brought a 
very favourable response. As if 
to emphasise the fact that the 
Oric can connect to virtually any 
centronics type printer there was 
a demonstration of Oric-Base 
running in conjunction with a 
large daisy-wheel printer. 


At the beginning of the show I 
went round to some of the soft- 
ware companies who concen- 
trate mainly on the Spectrum 
and VIC-20. I asked them 
whether they would be produc- 
ing any Oric software in the near 
future. Most of them replied 


with a shrug of the shoulder and 
‘it’s not really worth it’. When I 
went back to them at the end of 
the show they had a different 
reponse, ‘judging from what 
we’ve seen at the Oric stand 
we've got to re-think our soft- 
ware plans.’ 

Changing the subject a little we 
have had a flood of new sub- 
scriptions for the Oric Owner in 
the last few weeks. This has 
meant that our Microtan disc 
subscription system started to 
collapse under the weight of so 
many subscribers and we were 
forced to splash out on a larger 
machine (Sirius with 128K of 
RAM and 2.4Mb disc storage). 
This has caused several weeks 
delay while we transferred the 
data across. We do apologise for 
any annoyance this may have 
caused, particularly to those 
who sent in their subscriptions 
and then heard nothing from us. 
Don’t worry, it’s all been sorted 
out now so you should start 
getting your Oric Owners more 
or less on time. 
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Exploiting Oric’s 
Attributes 

More in-depth explanation of 
this complex subject 


An Interview with Barry 
Muncaster 


The Managing Director of Oric 
gives us his views 


Ten tips to tape- 
recording: 

Some useful hints on how to get 
your Oric running reliably with 
a cassette recorder 
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Oric Quickies Special 
A Bumper selection of short 
and sweet programs + routines 


And Forthly ... 


A Recursive Decompiler: list 
out your words without using 
the Editor 


Captain Tanex 
His adventures continue in the 
land inside the machine 
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IJK Software and the ORIC-1 Micro; 
continue to bring you into a “e 
new era... 


For the 48K ORIC-1 ONLY 


C ine ‘the Xenon Space Academy, you must Quite simply the best version of the classic arcade game you will buy 
heine planet RADON from the AARDS, PARATRONS, for your ORIC-1 Micro. 


Battle Star! If you want a 100% machine code This full feature machine code game includes smooth action, 
mince game with the: smoothest, meanest action walking invaders, increasing speed, and options for choice of 
“mound, this fs the one for you ~ ~ you will not buy a better arcade style missile speed, bomb speed, invader speed, and invisible invaders! 


wane. For the 16K or 48K ORIC-1 
3 ror the 48K ORIC- 1. ONLY Only £7.50 inc. 


- gsi ores Seborg 


Fantasy Quest - An intriguing Superb rendition of the 
adventure for your 48K- | popular board game. Very 
ORIC-1. Your mission is to: | S fast and powerful, with skill 
find the four sectors of the Ps levels from beginner to 


| expert. This quite remark- 
able program also includes 


detailed instructions and a 
self play demonstration! 
For the 48K ORIC-1 
Only £6.50 inc. 


eye of MORPHEUS, and take 

them to the eternal fires of 
_ hell! Beware of greedy elves 

and wizards! 

For the 48K ORIC-1 

Only £6.50 inc. 


OTHER TITLES IN THE 48K ORIC RANGE 
Candyfloss/Hangman £7.50 inc. 
3D Maze/Breakout £7.50 inc. 


ALL PRICES FULLY INCLUSIVE OF VAT and P&P - 
NO MORE TO PAY 


Our software has been officially approved by Oric Products 
International Ltd., and is available from W.H. Smiths, Laskys, 
the Spectrum chain, hundreds of independent dealers 
nationwide, and in 23 countries across the world. You can also 
order it direct from us-—all advertised software is in stock NOW 
and will be despatched within 48 hours of receipt of order. 


ey IJK ; 2+ noun roa aaa 
S44 Software ~ : a 
IJK 


* . 9 King Street, Blag! pool, Lancs. | ie | 
Limited Telephone (0253) 555 pe 


News 


News 


Oric Add-ons 
soon 


According to a spokesman from 
Oric the Micro-Discs and 
Modem are well underway and 
could be released in late Sep- 
tember. Although there is not 
much information available on 
either at the moment it is 
believed that the discs are based 
around the Hitachi 3” micro- 
drive. These have a capacity of 
about 256K per side. Up to 4 
drives may be connected to the 
Oric through the expansion con- 
nector. 


The modem, which was 
announced at the same time as 
the Oric will allow connection to 
Prestel and Micronet 800. It is 
also believed that Orics will be 
able to communicate with each 
other over the phone lines which 
would be great for games such as 
chess (phone bill will not be 
withstanding!). 
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Brief _ 


J oysticks from 
PASE 


First of the independents with an 
Oric add-on are .PASE from 
Cheshire. They have designed 
an interface box which plugs into 
the printer port of the Oric. It 
takes two Atari type joysticks 
and is also supplied with a 
demonstration game. Full 
details from PASE on 061-366- 
930. 


New Book from 
Phoenix: 


Following on from Granada’s 
‘The Oric-1 and how to get the 
most from it’ comes another 
book this time from Phoenix 
Publishing, called ‘The Oric-1 
Program Book’ it lists fifty use- 
ful programs with full explana- 
tions of their function. The pro- 
grams cover fun + games, useful 
programs such as metric conver- 


tors or spelling tests and pro- 
grammers aid routines. The pro- 
grams are designed to work on 
16K or 48K Orics. 

It was written by Vince Apps 
and costs £5.95 from most good 
book shops. 
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News Brief 


Oric Owner 
goes French: 


Almost 50% of all Orics manu- 
factured go abroad with a large 
proportion going to France. 
With the demand for more infor- 
mation of the machine Denis 
Taieb the owner of Société ASN 
who are the main Oric distribu- 
tors in France, has decided to 
put together a French language 
version of Oric Owner known as 
MICR’ORIC. Although most 
of the articles and programs are 
the same, much of the news is 
tailored to the French market. 


Hobbit for Oric! 


The major deal has been 
announced between Tansoft and 
Melbourne House, publishers of 
the best selling adventure game 
‘The Hobbit’. Tansoft will 
cooperate with Melbourne 
House’s programmers to pro- 
duce an Oric version of the game 
aimed for release in late Septem- 
ber. It will be priced the same as 
the Spectrum version and will 
include Tolkiens book, The 
Hobbit. 

Tansoft will be handling the 
distribution for Orics dealers 
and outlets. 


LE CONCOURS : 
UN ORIC] 
A GAGNER! 


Une interview 
de l'ingenieur 
Johnson, 
linventeur de 
PORIC. . 


Un jeu complet: 
ORIC. TREK 


Des programmes 
Des conseils 
d'utilisation, 

Un fichier en 
FORTH. 


ORIC 1 
PROGRAM 
BOOK Vince Apps 


50 programs of games, educational and 
business use for all current versions. 
£5.95 128 pages 

You can run an obstacle race, save a 
maiden from the dark knight, protect 
cities from attack. 

Using High Resolution Graphics 

you can draw graphs, plot circles, weave 
webs, make fireworks. 

Budding programmers can 

peek into memory, redefine characters, 
input machine codes. 


Available through bookshops or cheque/p.o. to 
PHOENIX PUBLISHING ASSOC 


14 VERNON ROAD BUSHEY 
HERTS WD2 2JL 


Price £5.95 plus 55p post/pack. 
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Software Scan 


If you have kept your eye on 
Oric’s advertising the last few 
months you will have seen an 
advert for Oric-Trek. We were 
quite surprised when it appeared 
as we thought it had something 
to do with the Oric-Trek we 
printed in our first issue. It 
turned out to be a new version of 
the game by Salamander Soft- 
ware and a vastly superior ver- 
sion of that. You are supplied 
with a cassette and a flight man- 
ual which gives you full instruc- 
tions for the game. There was a 
picture on the cover of the cas- 
sette which looked remarkably 
like a cross between Mr Spock 
and Rudolph Nuryev! The game 
itself is played in real-time which 
means things are continually 


iG i, 

a) a \ 
happening even when you are 
not pressing any keys. You have 
a choice of 17 different com- 
mands which include weapons 
control, manoeuvring and status 
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display. On the screen is a long 
range and short range map and 
printouts from your — ships’ 
systems. I found the game great 
fun to play even though I was 
continually wiped out. 


New from I.J.K. Software is 
Xenon-l, an arcade quality 
shoot out game. As far as I am 
concerned this is the best arcade 
game yet available for the Oric. 
The graphics and animation are 
superb and the game itself, even 
at the lowest levels, is a real 
challenge. The game starts off 
by allowing you to shoot at 
circling bird-like aliens who are 
dropping bombs and dodging 
about on the screen. You then 
have to destroy circling bubbles 
which divide when hit. If you get 
this far you then have to dodge a 
swarm of meteors which are 
hurtling towards you. Surviving 
that you then have to shoot 
parachutists who are dropping 
from a hovering space ship. If 
any of the parachutists survives 
he walks along the bottom of the 


screen and pokes a sword up you 
(very nasty!). There are lots of 
varied and interesting levels in 
this game and it is worth getting 
just to see the graphics, let alone 
to play. 


{JK Software Ltd present... 


Next issue I hope to be looking 
at Author, the forthcoming 
word processor for the Oric. 
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Harrier Attack ORIC-1 


Pure machine-code, super-fast, action-packed, highly addic- 
tive arcade-style game requiring great skill. The harrier 
takes-off from an aircraft-carrier and flies over seaborne 
defences to attack enemy installations on a nearby island. 
The harrier may fly faster, slower, higher or lower, and has 
bombs and rocket fire with which to protect itself and make its 
own attack. If it flies too high it is detected by enemy 
jet-fighters (which it may counter-attack) — so it needs to hug 
the mountainous terrain which also varies with every new 
game. But the island is heavily defended by anti-aircraft 
rockets and tanks, which again the harrier may counter-attack 
or try to fly through. A tally is kept of fuel, bombs and rockets, 
plus player score and high score. Finally the harrier must 
make its bomb-run over the enemy base before returning to 
its own carrier. £6.95 


Starfighter ORIC-1 


Pure machine-code real-time graphics. The player is in 
command of a galactic defence vessel. His mission is to 
attack and destroy intruding alien vessels. At long range this 
can be carried-out via the ship’s computer and space- 
scanner: the ship may be manoeuvred to a position from 
which a photon torpedo may be launched. However beware! If 
your reactions are slow you may crash into enemy space- 
mines. At short range the action is hair-raisingly fast as the 
alien ship is pursued through space under manual control. 
See the star-scape spin relative to your ship’s manoeuvres, 
but watch out for alien mines whizzing past. Blast your phasor 
at the alien — but be careful! You must preserve your limited 
energy and weapon resources. Weapons, shield and energy 
status are all monitored throughout the game — which may 
itself be set for variable levels of skill. £6.95 


Lunar Lander/Asteroids ORIC-1 


Aimed at the newcomer to BASIC and/or the Oric-1, these 
exciting and enjoyable games are also easy to learn from, 
being short, simple and clearly written. Each is followed-up by 
a second version where every line of the BASIC is explained 
in an English REMark statement. These games also give a 
useful guide to the Oric’s screen attributes. £5.95 


Assembler/Disassembler ORIC-1 
The assembler follows standard 6502 conventions and has 
proved very reliable while in continual use by Durell Software. 
Features include the following: 


Generally List File Pseudo-Operations 


Auto line numbering LIST EQUATE 
Six character labels DELETE BYTE 
Updatable list-file LLIST DBYTE 
Maths on operands ALTER WORD 
Syntax checking INSERT TEXT 
Output to printer END/STOP BLOCK 


The disassembler also allows output to either screen or 
line-printer. The tape comes complete with comprehensive 
instructions. £8.95 


Dept. O02 : Durell Software 
Castle Lodge : Castle Green 
Taunton - TA4 1AB 
ENGLAND 


Price includes postage, packing and VAT. Overseas 
customers please add £1 extra for postage outside UK. 


Se SECTOR / SOFTWARE 


GAMESPACK 
For THE ORIC asx 


7 GAMES PROGRAMS ON 
1 CASSETTE FOR £7 


LASER-STATION 

— A planetary space duel — 
On a lonely red mining planet, defend your laser installation from 
a descending enemy saucer. Knock out the saucer’s photon bolts 
with the laser till the saucer comes in range, but watch your 
energy level & don't let the saucer hit the recharging plant. 


OBSTRUCTION 

— Territory, traps & skill — 
Steer your block around the screen restricting the movements of 
Oric’s snake. Set-up the dead-end trap without getting into a jam 
yourself. 


MAZATRONIC 

— A 3-Dimensional Maze Exploration — 
Oric places you at a random point inside a 3-dimensional maze. 
Move through the maze and use an aerial plan to deduce where 
you are. Then work your way to the exit. A fascinating game 
requiring patience and imagination. 


DEMOLITION 

— A race against time — 
A quality version of this addictive game. Level the cities of an 
abandoned planet to land and refuel. Comprehensive scoring 
with bonuses and extra ships for competitive players. 


MILLIBLOX 

— A Point-Scoring Chase through 7 sectors — 
7 sectors to explore as Blue milliblock evades the Red milliblox. 
You have to score 200 points in each sector before the exit 
appears to the next, and each sector contains a special power 
milliblox to turn the tables on the Red milliblox for a short while. 


NOUGHTS & CROSSES 

— The Traditional Game — 
3 skill levels to provide even the youngest gamester with a 
suitable opponent. 


MATHS-TEST 

— Combines Maths & Fun — 
A game for youngsters to practice their maths. Oric sets 
questions on 10 skill levels. A correct answer gives you a chance 
to shoot down invading spaceships. With each correct answer 
more spaceships appear, and they get faster. 


ALL GAMES HAVE MULTI-SKILL LEVELS 
7 GAMES ON ONE CASSETTE FOR £7 
(48K version only at present) 


Send cheque or P.O. for £7 to 


SECTOR 7 SOFTWARE, P.O. BOX 8 
NEWTON ABBOT, DEVON 
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An Interview with Barry Muncaster 


Managing Director of Oric Products International 


How did you first become invol- 


ved in the 
industry? 


Microcomputer 


In the mid 70’s I owned a com- 
pany that was involved in the 
design and development of taxi 
meters and, in fact it is difficult 
to get into a London cab these 
days which is not based on the 
original design concepts. We 
were the first UK company to 
commercially exploit the micro 
processor (TMS 1000) in large 
volumes. Late in 1978 I was 
doing some consultancy work 
for Cambridge consultants, 
who are probably the leading 
research and development 
organisation in the country, 
and whilst there I met Dr Paul 
Johnson, in general conversa- 
tion I found out that he was 


looking for some funding capi-: 


tal to develop and market an 


idea that he had for a single 
board micro computer system. 
At that time I had access to the 
funds required and we very 
quickly got together and for- 
med Tangerine Computer 
Systems which led to the very 
successful Microtan 65 system. 


Your partner in Tangerine Dr 
Paul Johnson is now very invol- 
ved on the technical side of the 
Oric. Do you feel that your role 
complements his? 


Yes, Paul is extremely com- 
petent technically and is parti- 
cularly skilled at designing elec- 
tronic products for the mass 
consumer market without sac- 
rificing quality, as is evident 
from the Tantel, Tiger and 
Oric range of products. Left to 
his own accord Paul would con- 
tinually develop and improve 
upon a product and would not 
have the discipline to stop 
development in order to get the 
product on to the market in the 
correct manner and at the right 
time. I think this is the area 
where my expertise is most 
evident and complements 
Paul’s. 


You seem to have a low opinion 
of financial institutions who put 
money into the micro-computer 
industry. Can you give us some 
of your reasons? 


My attitude towards banks has 
been formerly well recorded and 


could be seen to be totally nega- 
tive. This is not really the case 
— I appreciate that the banks 
have a fundamental role to play 
in our industry and once you 
have an established company 
up and running, the services 
they offer are both helpful and 
commercially acceptable. The 
problem with their institutions 
is that our business is so fast 
moving and so cash hungery 
that they do not have the atti- 
tude of mind to respond fast 
enough to young companies of 
these kinds. This obviously 
stems from a history of sup- 
porting more stable industries 
where, in the past annual 
growth is of a few percent, are 
considered acceptable. Our 
industry provides opportunities 
for companies to grow at 200, 
300 or 400% per annum. I 
think the banks are learning 
and attitudes are changing as is 
evident by the recent introduc- 
tion of high technology support 
staff within the likes of Barclays 
and Lloyds. Unfortunately a 
great void in understanding still 
exists between banks experts 
who tend to have academic un- 
derstanding of our industry and 
the entrepreneurs which have 
established the UK as a major 
force in personal computing. 


Other companies, such as Sin- 
clair, seem to revolve around the 
personality of one man yet Oric 
seems to be a team effort. Do you 
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think this contributes to the suc- 
cess of the Oric? 


From a marketing point of view I 
am sure that the personality of 
Sir Clive Sinclair has contri- 
buted significantly to the growth 
of his various companies. End 
users relate to him as an individ- 
ual and look on him as friendly 
Uncle Clive which generates a 
great deal of empathy between 
them. I think that in the long run 
a single autocratic leader can 
inhibit the product development 
and support, take for example 
Henry Ford’s attitude that you 
can have any colour car so long 
as its black, how would that 
attitude stand up in todays mar- 
ket place? With a team approach 
such as we have in Oric any 
movement of directors or senior 
staff is actually transparent to 
the customer which should mean 
that they can come to rely on 
Oric as a company for support 
and continued development of a 
very high level. At least, I hope 
that is what they will do. 


Several years ago there was the 
Hi-Fi boom then the rather 
short-lived CB boom. Do you 
think the micro-computer could 
go the same way. 


No. I think that what will hap- 
pen is that during the next 2 to 3 
years micro computers will lose 
their glamour image and will just 
become accepted as an everyday 
product, very much as calcula- 
tors have been. I do not think 
there is a tremendous scope for 
such major leaps in technology 


from a hardware point of view as 
we have seen in, say the last 10 
years, but the scope for software 
development is fantastic. 


Most of the Oric PCB is manu- 
factured in Singapore. Could 
you not do your manufacturing 
in the UK? 


Yes, we could and may well do 
so at some point in the future, 
however, in a start up operation 
the Far East offers a much faster 
ramp up opportunity and even 
more significantly offers the 
opportunity to avoid the invidi- 
ous import tax of 17% on some 
integrated circuits. This means 
that we are able to ship inte- 
grated circuits from the USA 
direct to Singapore, assemble 
them in a printed circuit board, 
ship that to the UK and save 
something approaching 11% on 
the cost of raw materials. 


Is it true you are a member of 
MENSA? 


Yes, I am not sure what its 
function is, it doesn’t appear to 
be obvious. I used to enjoy 
solving problems for fun and 
took their I.Q. test in the late 
’60s, at that time I had an I.Q. of 
155 but Iam sure that all the late 
nights spent setting up Oric have 
caused irreparable brain damage 
which will have reduced this to 
single figures. 


The Oric is obviously doing very 
well in this country. How well is 
it doing abroad? 


Exceptionally well, over 75% of 
our shipments are exported. 
This is great news for us and 
great news for the country. This 
is a result of a deliberate policy 
to take all international markets 
simultaneously, and it appears 
to be working. 
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The micro-computer had caught 
on very quickly in the country. 
Why do you think it has taken so 
long on the continent. 


I am not absolutely sure, I think 
it is because there are so many 
different national languages that 
countries such as France and 
Italy have very small home mar- 
kets when compared to the likes 
of UK and the US. Also that 
they have been unable to take 
large volumes of raw materials 
which, in turn enables the com- 
petitive products to be pro- 
duced. 


Where does Oric go from here? 


Our prime objectives are to 
establish a company which gains 


NEW RELEASE 


For 48K £6.95 inc. 

SUPER M/C ARCADE GAME 

@ Skill Levels, Full Colour, Platforms, 
Ladders, Fire-balls, Rolling Barrels, 
Umbrellas, Hearts, Hall of Fame, 
Sound Effects. 


*Author — Adrian Sheppard. 


JOGGER 


For 48K £6.95 inc. 
REAL M/C ARCADE ACTION 


@ 4 Screens, Skill Levels, Full Colour, 
Road, Cars, Lorries, River, Crocs, 
Logs, Hall of Fame, Sound Effects. 


Perspire your way up the screen. 


DINKY KONG 


Your won’t see a better game for the Oric. 


*Author — 
Adrian Sheppard. 


SEVERN SOFTWARE 


acceptance in the market place 
for technical excellence, reliabil- 
ity and support. Market sure and 
the kudos that goes with it is not 
the prime mover but is accept- 
able if it happens as a result of 
adherence to our number 1 
objectives, what I am saying 
therefore, is that we wont react 
in a bank stricken manner to 
some of the crazy price reduc- 
tions and promotional stunts 
that are currently being offered 
by the ‘big boys’ such as TI and 
Commodore who are attempting 
to squash small guys regardless 
of the vast loses that they are 


‘ ineurring. We intend to be 
‘around for a long time to come 


and we will surprise the market 
place with some really exciting 
developments in the next 2 


years. 


NEW RELEASE 


ORICADE 


For 48K £8.50 inc. 
@ Assembler/Disassembler/Editor 


@ Handles full 6502 mnemonics. Features 
Save & Reload M/C Assembles & 
Disassembles at any address. 


You can’t program seriously without 
Oricade. 


*Author — Adrian Sheppard. 


GRAIL 


For 48K £6.95 inc. 
Exciting Graphic Adventure 


For 48K £6.95 inc. 


A challenging adventure set in the mines 
of Moria. 


@ Can you survive encounters with the 
monsters of Middle-Earth? Will the 
wizard help you? Are you fated to die 
beside the sealed doors? Or have you 
the power to open them? Unless you 
find Durins Ring you will never leave 
the mines alive! 

*Sold at branches of LASKYS and all 

good software shops — ask for SEVERN 

SOFTWARE. 

Dealer/Distributor enquiries welcome — 

excellent trade terms. 


Where in the Castle Perilous is the | 
Holy Grail? Gather armour and | 
weapons to fight monsters. Sell | 
treasure to a trader in exchange for | 
strength potions and wound ointment. | 
Where will the warp take you to? | 
This is a test of skill, luck, logic & | 
intelligence. 
| 
| 
| 
I 


fore] 


Please SEN ME YOUP.........sscecseecsessseeseeeeens program. 
For my Oric-1 


lenclose cheque/P.O. fOr £.........scssssssssssesssseesesereees 


SEVERN SOFTWARE 
5, School Crescent, Lydney, Glos. GL15 5TA. 
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ALL: TRONICS, 

297 BRUS. STEENWEG, 
1950 KRAAINEM 

Tel: (09)(32)(0)2 7678223 


Authorized Benelux Distributor 


ORIC 48K 
ORIC 16K 
ORIC Games Software 
ORIC Assembler and 
Professional Software 


Joysticks 
Printers 
Manuals (Dutch & French) 
Extension boxes 
A/D converter 
I/D ports 
Heavier Power Supply, 
Ram upgrades etc. 


PEACH COMPUTERS LTD. 


192 Greenock Rd., Largs, Ayrshire, Scotland. Tel: 0475 673766 


PEACH BYTES 


“COPY” £5 (R.R.P.) 


A fast machine code subroutine which copies the screen to a 
printer with no misprints and no squiggles. 


“CHECK” £5(R.R.P.) 
Fast machine code subroutines which check for errors in 
programs and data with auto adjust after program or data 
insertion. 


“RECORDS” £10(R.R.P.) 


A simple system for storing and accessing very large amounts of 
records suitable for a wide variety of applications. 


“STOCK” £10(R.R.P.) 


Fast access to details of more than 1000 items via coded input 
with auto stock control, delivery notes and invoices. Supplied 
with useful large dummy data base. 


“TEACH” £25 (R.R.P.) 


Five lesson teaching course complete with detailed printed 
notes in high quality booklet. Evolved from genuine teaching 
contacts. 


All of the above are supplied on cassette with accompanying 
leaflets. 


Prices are fully inclusive. 


COSMIC INTRUDERS (48k Oric) 


Must be the best shoot ‘em up game ever! Just look at its 
features: smooth action, super fast, vicious aliens that 
get faster and faster and faster.... But beware of the 
mystery ship that swoops across the screen dropping 
deadly missiles at every available chance! Incorporating 
ahi score and “hall of fame”, cosmic intruders makes full 
use of Orics’ brilliant sound, colour and hi resolution 
graphics to produce this arcade action machine code 
game only from Mercury. CAUTION: very addictive. 


Great value too, at only £4.95 inc p & p! 


DIGGER (48k Oric) 


A brilliant full feature arcade game incorporating super 
fast, smooth action machine code. Your aim is to get all 


the bags of gold stashed at the top of the screen and carry 
them back to the bank. But beware of those hungry 
monsters and that dwindling oxygen supply, only two of 
the dangers that await you! Dig holes and try and coax 
the monsters in and then fill it in or else the monsters will 
come back twice as powerful and twice as angry! Hi score 
and “hall of fame”, all included. CAUTION: very, very 
addictive. 


Great value too, at only £4.95 inc p & p! 


Mercury Software, 
1, Duxford Walk, 
Moston, 

M10 9JN 


Dealer enquiries welcome. 


ARE YOU SERIOUS 


THE ABOUT 
acca nies YOUR 
ORIC? 


IF SO THEN 
THIS IS THE 
BOOK FOR 

YOU! 


Bob Maunder 


THE ORIC COMPANION by Bob Maunder, author 
of the Sinclair ZX Companion series, is a 
detailed manual on the Oric-l computer, 
indispensable to both BASIC and machine- 
code programmers, It contains 
Reference Guide to all Keywords 
Analysis of Screen Display 
Disassembly of Oric-1l ROM 
and much more 
Send cheques for €6.95 (UK P&P free) to: 


DEALER ENQUIRIES WELCOME. 


LINSAC 68 Barker Road, Linthorpe, 
Middlesbrough, Cleveland. TS5 5ES 
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And Forthly... 


By Paul B. Kaufman 


A Recursive 
Decompiler 


This program originally 
appeared in Forth Dimensions, 
the American Forth magazine. 
A Forth ‘decompiler’ is a tool 
that scans through a compiled 
dictionary entry and tells you 
what has been compiled. In the 
case of a colon definition, it 
prints the names of the words 
that are pointed to inside the 
definition. This means that you 
can look ‘inside’ a word without 
having to refer to the source 
screens. 


Although the idea of a decom- 
piler has been around for some 
time this version uses a recursive 
method of operation. This 
means that part of the code 
repeatedly calls itself. This is 
done by the word MYSELF 
which allows a word to call itself, 
which is a fairly unusual occur- 
rence in Forth. 


the decompiler 


To execute 
enter: 


DECOMP XXxXX 
where XXXX is the word you 
wish to look at. 

There are three control options: 


1 Q: Quits operation. 


2 Space: Prints next word. 
3 Return: Prints words next 
level down. 


As about 8000 people have 
received Forth for their Oric I 
am now waiting for a flood of 
Forth software to print in the 
next issue, so keep in touch. 
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And Forthly ... 
Program Listing 


1 LIST 2 LIST 

SCR 1 

DECOMPILER FOR ORIC ) 

MYSELF LATEST PFA CFA , ; IMMEDIATE 


VARIABLE GIN 
GIN+ CR GIN @ 2+ DUP GIN ! SPACES ; 
DIN CR GIN @ SPACES ; 


: GCHK DUP @ 2+ ‘ COMPILE = IF 2+ DUP @ 2+ NFA ID. 2+ ELSE DUP @ 
2+ DUP ' LIT = OVER ' BRANCH = OR OVER ' Q@BRANCH = OR 

OVER ' (LOOP) = OR SWAP ' (+LOOP) = OR IF 2+ DUP @ SPACE . 2+ 
ELSE DUP @ 2+ ' CLIT = IF 2+ DUP C@ SPACE . 1+ ELSE DUP @ 2+ ' 
(.") = IF 2+ DUP COUNT TYPE DUP C@ 1+ + ELSE 2+ THEN THEN 

THEN THEN 

-2 GIN +! ; 


WOADNAIHNDMNSPWNEF @ 


oe. 


# 2 
( DECOMPILER CONTINUED ) 
(GOFSINTO) ( PFA...) 
DUP CFA @ ' : CFA @ = OVER ' ERROR = 9= AND If BFGIN DUP @ 
DUP ' ;S CFA = OVER ' (;CODE) CFA = OR 8= WHILE 2+ 
DUP GIN+ NFA ID. KEY DUP $1 = IF CR .™ BREAK" CR SP! QUIT 
ELSE 13 = IF MYSELF ELSE DROP THEN THEN GCHK 
REPEAT 2+ DIN NFA ID. THEN DROP ; 


: DECOMP -FIND IF DROP 6 GIN ! (GOESINTO) ELSE 
-" NOT FOUND" THEN ; 
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Exploiting Oric’s 
Attributes 


By Ian Stewart 


Dads what do they mean 


On any microcomputer, the col- 
our display is controlled by a 
series of codes, stored some- 
where in memory, known as 
attributes. These also control 
features of the display such as 
whether characters are flashing 
or double-height. Some comput- 
ers set aside one memory loca- 
tion for each character cell, to 
hold its attribute. This system of 
parallel attributes is extremely 
transparent to the user; but it 
-means that a lot of memory is 
tied up holding useless informa- 
tion about the attributes of cells 
that you don’t want to make use 
of. The ORIC saves memory by 
a clever system of serial attri- 
butes, which are stored in the 


| ; 
\ by “Serial Attributes’ ? 


\ 


same part of memory as the 
screen display itself. Serial attri- 
butes can be a little tricky until 
you’ve got the hang of them; but 
once you have, it’s easy to use 
them to good advantage. This 
article is a simple guide to the 
basic ideas involved. 


The text screen 
First, let’s recall a few facts 
about the ORIC’s display. 
There are four modes: three 
low-resolution modes 
TEXT LORES@ LORESI 
and one high-resolution mode 
HIRES. 


For simplicity, I'll concentrate 
on the TEXT mode; but I'll say a 
little about the others later. The 
main principles are the same in 
all modes, but fine details differ. 


The TEXT screen consists of 27 
rows of 40 cells each. The rows 
are numbered @-26, and the 
columns Q-38 (with the leftmost 
column reserved for the operat- 
ing system of the machine, so 
not numbered). Appendix H of 
the Manual shows this in detail. 


Each cell can hold one char- 
acter. To print out a given cha- 
racter at a given position, you 
use the PLOT command. For 
example 


PLOT 3,7,°2" 


produces the character Z in col- 
umn 5 of row 7. 


In the low-resolution modes, 
each character cell is assigned 
two colours, the background 
and foreground. These can be 
set for the whole screen at once 


by using the commands 


PAPER INK 
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followed by a number between 
® and 7, which defines the actual 
colour. The codes are: 


NUMBER COLOUR 
0 black 

1 red 

2 green 

3 yellow 

4 blue 

be magenta 

6 cyan 

7 ‘white 


So the commands 


PAPER 6 
INK 1 


produce red text (INK code 1) 
on a cyan background (PAPER 
code 6). 


However, using only these com- 
mands, you can only get two 
colours on screen at once. (Pos- 
sibly this is what fooled some 
reviewers into thinking that only 
two are possible, as mentioned 
on page 38 of Oric Owner isue 
1.) The fun really starts when 
you want to use lots of different 
colours at the same time. 


Multicoloured plotting 

The main idea is that the PLOT 
command can be used to define 
colours as well as characters, at a 
given position on the display. 
Here’s a program to demon- 
strate it: 


10 REPEAT 

20 INPUT T 

30 UNTIL T >= 0 AND T 
<=7 


40 PLOT 10,12,T+16 
50 GOTO 10 


Try inputting the numbers 
0,1,2,. . .,7 in turn. (If you try 
anything else, the program 
won't accept it: it’s been mug- 
trapped.) What do you notice? 
How do the colours you see 
match up with the codes above? 


Suppose for instance that you 
input 2, the code for green. 
Then the whole of row 12, 
from column 10 onwards, turns 
green. The other colours work 
the same way. 


What’s happening is this. A 
command like 
PLOT 10,12,“Z” 


produces the character Z. But 
a command 


0 PLOT 10,2,18 


doesn’t produce a character: it 
produces a colour. The colour 
depends on the third number, 
here 18, in a way that I’ll explain 
below. But — unlike the char- 
acter Z — this colour does not 
affect just the cell in column 10 
of row 12. It affects the whole of 
row 12 from column 10 onwards. 
That’s what serial means. 


However, this colour can be 
‘switched off’ by another PLOT 
later in the same row. Try this: 


PLOT 1012,18 
PLOT 2012,21 
Now your stripe starts green but 


then turns magenta in column 
20. 


Essentially, that’s all you need 
to know (aside from the attri- 
bute codes like 18), because 
careful choice of PLOT points 
lets you set up any combination 
of colours that you want. But 
there’s one snag to be borne in 
mind. If you try to plot a char- 
acter on a cell that holds an 
attribute, then the attribute is 
cancelled (and the previous one 
in that row applies). In other 
words, you cannot plot both a 
character and an attribute in 
the same screen cell. (There 
isn’t room in the assigned sec- 
tion of memory for both: that’s 
a price that has to be paid for 
the savings on memory result- 
ing from serial attributes. ) 


The next program illustrates this 
problem. 


10CLS 

20COL = 0 

30 FORC=90 TO 36 
STEP 4 


40 FORR=00 TO 26 
50 COL = COL+1 
60 IF COL >7THEN COL 


70 PLOT C,R,COL+ 16 


80 NEXTR 

909 NEXTC 
100 WAIT 400 
110 FORK =90 TO 26 
120 PLOT 

K+1,K,“WATCH THIS!” 

130 WAIT 60 
140 NEXT K 


The screen will acquire a com- 
plicated pattern of colours, set 
by the attribute command 
PLOT in line 70. Note how the 
colours are painted in, always 
running to the end of their row 
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at any stage. After a pause, 
some text is added: you'll see 
how the colours change when a 
character overprints an attribute 
cell. 


Attribute codes 

Attributes can set INK _ or 
PAPER colours (locally); make 
a character flash, or print it 
double height. The attribute 
codes run from @ to 31, with 
these meanings: 


0 black INK 

1 red INK 

2 green INK 

3 yellow INK 

4 blue INK 

5 magenta INK 

6 cyan INK 

7 white INK 

8 single height steady stan- 


9 single height steady alter- 
nate 


10 double height steady 
standard 
11 double height steady 
alternate 
12 single height flashing 
standard 
13 single height flashing 
alternate 
14 double height flashing 
standard 
15 double height flashing 
alternate 


16 black PAPER 

17 red PAPER 

18 green PAPER 
19 yellow PAPER 
20 blue PAPER 

21 magenta PAPER 


22 cyan PAPER 

23 white PAPER 

24-31 IGNORE THESE: 
may affect screen synchronisa- 
tion 


The words “alternate” and 
“standard” refer to the two 
character sets: see Chapter 4 of 
the Manual. Try inputting 0-23 
in turn using the next program, 
which will demonstrate the 
effect of the corresponding attri- 
bute. 


10 CLS 

20 REPEAT 

30 INPUT T 

40 UNTIL T >=0ANDT 


50 PLOT  10,9,“ORIC 
ATTRIBUTE DEMO” 

60 PLOT  10,10,“ORIC 
ATTRIBUTE DEMO” 

70 WAIT 200 

80 PLOT S,9,T 

90 PLOT 5,10,T 
PRINT CHR$(30) 
PRINT SPC(10) 
PRINT CHR$(30) 
GOTO 20 


Note particularly how the 
double height characters work. 
You need two sets of characters 
in two consecutive rows to get 
double height; because the 
double-height attribute doubles 
up the size of the top half in an 
odd-numbered row, and the bot- 
tom half in an even-numbered 
row. 


Other modes 

The attributes work similarly in 
the other modes. However, in 
LORES@ and LORES1 an attri- 
bute affects only the square on 
which it is plotted. 


In HIRES you must think of 
the display as being made up of 
200 rows, numbered 0-199, each 
one eighth of the LORES 
height; and divided into 40/ 
columns as usual. The main dif- 
ference is that you can no longer 
use PLOT to set attributes; in- 
stead you must POKE to the 
part of memory that holds the 
screen information. To set up an 
attribute with code A at screen 
position R (hi-res row) and C 
(lo-res column) you must use: 


POKE 40960+40*R+C+1,A 
[48K ORIC] 
POKE 8192+40*R+C+ 
[16K ORIC] 
To affect the left hand (reser- 
ved) column, use 
POKE 40960+40*R,A 
[48K ORIC] 
POKE 8192+40*R,A 
[16K ORIC] 


There isn’t space to give detailed 
examples, but you can find them 
in the new book Easy Program- 
ming for the Oric, by Ian Stewart 
and Robin Jones, Shiva Publish- 
ing, 4 Church Lane, Nantwich. 
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Blackjack 


By Jock & Stuart Hall 


This is a computer simulation of the well known card game. 


4 
B:FARER 2 


INK. 
ES=" 


ft 
fy 


SH GET CARL 
SPRINT! OL) HAVE "MG" IH CASH" 


ye 


hie ee ee 


LY, 1=08 SD de Mie LP 


1 
1 
1 
1 
1 
1 
1 


IF @$="S" THEN GOTO Las 
'T" THEN GOTO 1aie 
1458: GOTO Leen 

WB Sen 

a YMEYH+L  Y80 YM =C$ 

Ye YN SC 

GOSUB 6a 

HA=e 

FOR I=1TOYN 

IF ¥¢I? =11 THEN HASHA+1 


“RINT HAC 
4 


"HOM MISH To BET" +B 
‘SET DEALER CARL! 


ra 

YM THEM GOTO sae 
1 kanans 

T=1 TO Hla 
21 THEN 


nose 
FORI=17T0 ‘'H 
SO =50+'r¢ 13 
HEART 
IF ‘VH= 
IF : 
IF Ae 
HASHA-1 So 

GOTO1L155 

REM CARD DISPLAY 
4eT#2+05:REM CEALER OFFSET 
VYalte 

FOR H=@ TO 7 
PLOT ott". CHESS 


‘PRINT! NEXT 
PLOT 5.28. "YOU'RE BUST! 


4 GOSUE eee 

MW PRINT "SOW HOW HAWE Ta " 

PRIHT "WAHT TO PLAY AGAIN? oe oe" GET 
IF tee '"''" THEM GOTO Lee 

4 PRINT BYE" EMD 

4 REM RAMOOM CHR 


RE TUR 


PLOT A+6. M+). CHR St 
MET 

PLOT w+1.¢+1.0% 
RETURH 


cs="18" 
Cee" J" 
# THEN C#="C" 
3 THEN C= 


— 
<— 
=o 
PIP RRP Re RR RP Ree RE eee eRe Ree 


WMA MMi hh Ne Ree Ree Ree ee eR DS oe 
MeN MABE TOMI HDAMAbSwemwe ow wo wv 


AAG IVI VBI GV VI su POs se Aww 


ce ad Le Oa De RD 
2="DERLER" 
WE 1aSe 


REM FRIMT HAND 5A38 
IF D$ 1 0="DEALER" THEHOS=16:GOTO 618 Sade 
sae 2045) | 
l=" 2a5e 
CHey ee 12 2868 


GOSL 


THEM FRIHTHSs “EWEMS BET AGAIN": RETURM 


S GOTO 2648 
an IF SC?21 THEM PRIWTHSs "DEALER BUST "GT M= +B RE TURK 
Bice o REM CARO DISPLAY 2078 PRIHT Miia" GCEALER WIMS! a: YM=M-6 
24sa RETURH 
3HG0 REM BROKE 
3814 FOR I=1 TO 3 
MW SHOOT 
WAIT Sa 
HEXT 
CLS: PAPER. 
PRIMTCHR SS: 122 
IHk 
PRINTCHRS 4068" TF YOU BET WHAT WOU ADAMS ToGo" 
PRIHT: PRIMT } PRIMT 
3 PRIMTES" J ‘OW DIE!" 
(AS8 PRIMT CHR 4: EME 


EO OR THIST 


TWIST # OS 
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‘rank Little is a freelance pro- 
‘rammer, currently producing 
rogram packages on the IBM 
?ersonal and similar computers 
n the field of insurance consul- 
tancy. He is also a 6502 enthu- 
Siast, and was an interest in 
modular concept peripherals. 
MCP makes add-ons for the 
ORIC-1, and will soon be releas- 
ing an adventure game for it. 


Manufacturers of business com- 
puters have been a bit sniffy 
about colour displays in the past. 
Prestel, and the adoption of 
colour screens by IBM have 
changed that. Apart from the 
fact that the average business 
user is as avid a computer games 
player as the next man (or boy), 
the use of colour helps in the 
presentation of business infor- 
mation and, if done tastefully, 
does wonders for the image of a 
company when its computer is 
used as a Sales aid. 


The following program makes 
use of the facility on the ORIC 
to change the background col- 
our of areas of a screen. The 
purpose of the program is to 
simulate the filling in of a form 
by indicating the areas to be 
completed in cyan and allowing 
the person supplying the infor- 
mation to move over these areas 
by means of the cursor keys. The 
program prevents typing in the 
white areas by making a substi- 


Forms 


tute cursor skip over them. 
There is one advantage over 
filling in a paper form — you can 
retype over an error without 
making a mess! 


‘FORMS’ can be adapted to 
most personal ‘data capture’ sit- 
uations by altering the prompts 
and whatever is done with the 
string arrays. It was originally 
conceived to help turn ORIC 
into a colour terminal for a 
larger computer and should 
prove more useful (after it has 
been speeded up) in a business 
context when the ORIC disc 
drives are available later this 
year. 


In the following example, the 
Cwmtawe Building Society is (I 
hope!) entirely fictitious, very 
male chauvinist, and bases its 
mortgages on_ two-and-a-half 
times a husband’s — or potential 


husband’s — salary plus his other 
income once, plus half his wife’s 
or fiancee’s income. 


Comments on the program: 

Lines 0-26 contain the start and 
finish columns (X co-ordinates) 
of the background colour. To 
make it easier to amend the 
program, I have made the line 
number of the DATA statement 
the same as the corresponding 
line number on the screen (Y 
co-ordinate). Since typing in col- 
umn 0 is taboo, a code of 0 is 
used to indicate that all this line 
is protected (see line 130). 


50 This sets up an array of bytes 
38 X 26 which parallels the data 
on the screen — each byte in the 
array will represent the status of 
each byte on the screen. High- 
values (CHR$(255)) means that 
the corresponding byte cannot 
be typed over; the remaining 
bytes contain a printable value — 
either the initial space, or a 
copy of what has been typed in. 
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I could save space by using a 
single array (DIM S$(26)) but 
that would have meant using 
MID$ to get at individual bytes, 
which would have made the 
logic less clear. 


60 Turn CAPS off to allow 
lower-case input; cursor off to 
prevent distraction. 


100 Process a line at a time. 


110 Makes sure that the first 
two columns are marked ‘out of 
bounds’. 


120 takes the next two items of 
data. 


135 clears all the line to spaces 
and marks the corresponding 
bytes in the array ‘out of 
bounds’. 


240-340 A bit sneaky — on nor- 
mal exit from a FOR. . . NEXT 
loop, the control variable (X) in 
this case) is always equal to the 
limit (the value after the 
UNTIL) plus the step value, 
which is 1 in this case. 


350 Since a FOR. ..NEXT 
loop is always entered once, 
even if the limit has already been 
exceeded, this line prevents us 
going into the final loop 
(360-420) if we have already 
plotted the last character posi- 
tion in the line. 


450-460 These literals are going 
to be used in more than one 
place, so we can save space by 
defining them once. 


560 plonks a pseudo-cursor in 
the first position to be filled in. 


580 sets up the initial co- 
ordinates of the ‘cursor’ and the 
column number of the end of the 
prompts. 


Lines from 600 onward are 
indented to make the logic as 
clear as it ever will be. The loop 
would go somewhat faster if the 
initial colons and spaces were 
removed. 


620 emulates the ORIC GET 
command. This is a useful dodge 
for BASICs that do not have a 
GET which waits for a key to be 
depressed. 


I cannot use GET here because 
there is a fault in the earlier 
versions of BASIC on ORIC-1 
such that NULL (no value) is 
returned for a keyboard input of 
” (apostrophe). Some addresses 
contain apostrophes. 


(A digression. A friend of mine, 
who worked in a large computer 
establishment not a _ million 
miles from this office, lives in a 
village called Godre’rgraig. He 
makes a point of including the 
name in all his correspondence 
with large organisations, 
because he knows what trouble 
the apostrophe in the middle 
causes in computer data prep- 
aration and name-and-address 
print programs — and, of course, 
he can complain loud and long 
about the insult to the Welsh 
language if it is omitted.) 


640, 660 127 is the decimal 
value of the ASCII code for 
DE Lete. 


680 If the character typed in is 
printable, it is not only plotted 
onto the screen but also saved in 
the array. 


700, 720, 740, 760 8, 10, 11 and 
9 are the codes for the cursor 
keys in the order in which they 
appear on the keyboard. 


712, 732, 748, 761, 794 — the 
character from the array has to 
be plotted back before the 
pseudo-cursor is moved. 


780 13 is the code for carriage 
return. This section of code 
allows you to skip from the 
current line to the start of the 
next place for data to be 
entered. 


840-860 Each money amount is 
vetted and converted to a vari- 
able. 


920 FAULT is a Boolean value, 
true or false. If there has been an 
error on input, we go back to the 
start of the cursor movement 
routine. 


2160, 2170 In real use, the vet- 
ting would be a lot more sophis- 
ticated and the messages more 
user-friendly. 


2175 Clear any error indication 
which might be present. 


Further vetting could be applied 
to the postcodes. For large 
users, there is an advantage in 
capturing correct postcodes be- 
cause the Post Office gives a 
discount to bulk postings of sor- 
ted postcoded mail. 
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Forms 


WONNUMFuneKS 
=] 
DB 
4 
DB 
S 
=) 


22 DATA 0,8 

23 DATA 0,8 

24 DATA 2,0 

25 DATA 0,0 

26 DATA 0. 

4@ CLS 

5@ DIM S#(38, 26) 

6@ PRINTCHR® (20) 5CHRS(17) 
1@@ FOR L1i=®@ TO 26 


11@ = S$(@,LI)=CHR#(255) 'S¢¢1,L1)=CHR$(255) 
120 : READ C1,C2 

130 : IF Ci)@ THEN 160 

135 : FOR X=2 TO 38 

140 + PLOT X,LI," "2S%¢X, LT) =CHRS(255) 
145 =: NEXT X:GOTO 440 

160 + FOR X=2 TO C1 

180 = PLOT X,LI," " 

200 : S$(X,LT) =CHR$ (255) 

220 : NEXT X 

240 : PLOT X,LI,CHR®C2Z2) 

260 : S#(X,LI)=CHR$C255) 

280 : FOR X=X+i TO Ce 

20 : S€¢X,LId="_" 

71i@: PLOT X,LI," " 

320 : NEXT X 

340 + PLOT X,LI, CHRS(23) 1S$¢X,LT)=CHRS C255) 
250 : IF X)37 THEN 440 

360 : FOR X=X+1 TO 38 

380 : PLOT X,LI," " 

400 : 8$(X,LIDSCHR$(255) 

420 : NEXT X 

440 NEXT LI 

450 C1i$="Postcode"!C2¢="Salary —" 

460 CI$="Other" = C4$=" income." 


47@ PLOT 1,0) "Name and"#PLOT 2: 1, “address” 
48@ PLOT 1,4,C1¢% 

490 PLOT 1,6,C2% 

5@@ PLOT 1,6,C3$:PLOT 2,9,C4% 

51@ PLOT 1,12, "Partner":PLOT 1,123, "N/Add" 
528 PLOT 1,16,C1i% 

S2@ PLOT 1,18,C2% 

540 PLOT 1, 20,C2% 

550 PLOT 2,21,C4% 

56@ PLOT 18,0, 126 

560 X=10:Y=O:C2=8 


620 REPEAT 

620 ; AS=KEY$:IF AS="" THEN G20 

640 : IF AS)>CHRS(127) THEN 808 

660 : IF A®=CHRSC127). THEN PLOT X,Y." "#S8C€X, Y=" "2GOTO 702 
680 : IF As)CHRS(S1) THEN PLOT X,Y, A8#S#$C(X,YI=AKSGOTO 722 
700 : IF &()ASCCAS) THEN 720 


72 + KX=X-1EKY=Y 

704 : IF KX)@ THEN 71@ 

7O6 : IF KY=0 THEN PRINTCHR$(7):GOTO 800 

708 : KY=KY-1#KX=38 

710: IF S$CKX,KY)=CHR$(255) THEN KX=KX-1:GOTO 704 
7i2z : PLOT X»Y,S®(X,Y> 

714 : X=KXFY=SKYEPLOT X,Y, 128 

718 : GOTO 8a 

720 : IF 94) ASCCAS) THEN 740 . 

722 5 KX=X+1 2KY=Y 

724 : IF KX<(39 THEN 738 

726 : IF KY=Z26 THEN PRINTCHR$(7):GOTO 620 

728 : KY=KY+1 = KX=C3 

730 : IF S$(KX,KY)=CHRS(255) THEN KX=KX+1:GOTO 724 
732 : PLOT X1Y,S#(X,Y) 

734 i X=KX?Y=KY#PLOT X, Yr 1268 

738 + GOTO 82a 

740 : IF 184) ASCCAS) THEN 760 

742 : KX=X FKY=Y+1 

744 3 IF KY) 26 THEN PRINT CHR&(7): GOTO 822 

746 : IF S#(KX, KY) =CHR$(255) THEN KY=KY+1:GOTO 744 
748 : PLOT X,Y, S®¢€X,Y) 

758 : Y=KY#PLOT X,Y, 126 

758 + GOTO 820 

760 : IF 114) ASCCAS) THEN 750 

762 : KX=XFKY=Y-1 

764 : IF KY<@ THEN PRINT CHR$¢7): GOTO 800 

76E = IF S$CKX,KY)=CHR$(255) THEN KY=KY-1:GOTO 764 
7ES = PLOT X,Y, S#(X,Y) 

770 : Y=KY?#PLOT X,Y; 126 

778 : GOTO 80a . 

780 : IF 134)ASCCAS) THEN 820 

782 : KX=C3EKY=Y+1 

784 : KX=KX+121F S#CKX, KY) =CHR®(255) THEN 796 

786 : IF KX<(38 THEN 784 

788 : IF KY(26 THEN KY=KY+1:KX=C3:GOTO 764 

730 : PRINT CHR®(7):GOTO &20 

792 KX=KX+15IF SSC(KX,KY)=CHRSC2Z55) THEN 796 

794 = PLOT X,Y: S®€X, Y) #X=KX!Y=KY?PLOT X;Y,126:GOTO 800 
796 : IF KX(38 THEN 792 

798 : IF KY(26 THEN KY=KY+1:2KX=@:GOTO 792 


808 UNTIL AS=CHRS(27) 
820 FAULT=FALSE 

840 LI=6:GOSUB 2020:V1i=A 
860 LI=9:GOSUB 2000:V2=A 
880 LI=18:GOSUB 2000: 
980 LI=21:GOSUB 2000: V4=A 

920 IF FAULT THEN 620 

948 VS%=INT C2. S#Vi+VE+(VS4+V4) /2) 

1@@@ PRINTCHR$C17) sCHRS(2Q) 

1820 FOR LI=% TO 22:PRINT:NEXT LI 

1040 PRINTSPC(5)$"Subvect to availability of funds" 
1062 PRINT"the Cwmtawe Building Society would be" 
1980 PRINT“ prepared to advance you a mortsase of" 
11@@ PRINT"up tot _"3V5%3 

12008 END 

2080 KX=CZ:AS="" 

2020 REPEAT 

2040 = KX=KX+1 

2060 : BS=S$(KX,LI) 

2080 UNTIL BS<(CHR#( 128) 


>" OR B=" “ THEN 2208 
" THEN 2180 


2160 Fi=(B$("O"ORCBS) "9" 
2170 : IF Fi THEN PLOT 2@,L1,CHR®¢1)+"<- Error" + BS=CHR$¢ 255) :GOT 
O 2220 


: PLOT 2@,LI," Ai 
t AS=AS+ES 

2 KXSKX+12BS=S#(KX, LT) 
UNTIL BS) CHR$(127> 
FAULT=FAULT OR Fi 

A=VAL (AS) 

RETURN 
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Random Chance 


When writing games programs it 
is useful to obtain a truly random 
series. The ORIC 1 in common 
with most micros produces its 
random numbers by working a 
fairly complex formula on a 
‘seed’ to start a series. The 
problem with this-approach is 
that the same seed always pro- 
duces the same series, i.e. 
?RND(1) will produce a series 
starting -973136996, -103117626. 

. . etc every time it is called. 
The series is ‘reset’ by a power 
down reset. 


This is often good enough but, in 
some card games for instance, 
the player soon gains an advan- 
tage by knowing what’s coming 
next. Some programs try to over- 
come this by requesting a seed at 
the start but again if the same 
seed is given at each start up the 
same number series will be pro- 
duced. 


When naive I suggested that 
RND(RND(1)) might do the 
trick for reasons which should 
have been obvious it doesn’t. 


By David Sinfield 


The problem reduced to its sim- 
plest form is that the machine is 
wholly predictable. This is for 
the most part a good thing! but 
for games we need to introduce 
some ‘chance’ elements. 


This short BASIC routine can be 
slotted in in place of a GET or 
inserted in place of the usual 
request for a seed: 


10 D =KEY :REM THIS 
CLEARS KEYBOARD 
BUFFER 


20 C=0:PRINT“PRESS A 
KEY TO CONTINUE” 
30 A =KEY$ :C=C+1:IF A 
=““ THEN 30 


The variable C will continue a 
number dependant on the time 
between the first execution of 
line 20 and the pressing of a key. 
The count operates at about 
80Hz and the value of C is 
impossible to repeat at will. 


C can be used as the seed as in 
RND(C) or can itself be used to 
obtain a number between 0 and 
n by using the formula n*(SIN 
(y+ 1/2. 


It is possible to have another IF 
. . . THEN statement to protect 
C from overflow but the routine 
will loop for about 6.7 x 10? 
years! 
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WORDS 


UNDERSTOOD 


GO IN, GO OUT, GO TAXI, 
OUT, N, S, E, W, WAIT, 


SING, SAVE, WEAR, 
SCORE, ROW, SAIL, 
THROW, LIGHT, GET, 
TAKE, GRAB, CLIMB, 
DOWN, READ, **** OFF, 


TIME, DIG HELP, SEARCH, 
DROP, LEAVE, GIVE, 
OPEN, PHONE, QUIT, 
LOOK, KISS, PRAY, LOAD, 
CLOAD, PUSH, PULL, EAT, 
ATTACK, HIT, KILL, 
EXAMINE, SWIM, USE, 
INSERT, UNLOCK, WEAR, 
JUMP, INVENTORY, BUY, 
CRACK, COOK, SORRY, 
SAIL, ROW, 


TREASURES TO 
FIND 


. GOLD 

. SILVER 

. PLATINUM 

. CAMERA 

. ROCKET FUEL 

. ZIRCONIUM 

. RADIO TRANSMITTER 
. EGYPTIAN POTTERY 


ONNMNFPWNFR 


Journey of a Space 
Traveller 


9. DIAMOND RING 
10. ROMAN COIN 
11. ROMAN COIN 


HINTS 


1. MOVING ABOUT:-— 

N,S,E,W take you to 

locations:— 

but:— 

(a) at cliff top JUMP ——— you 
must have the parachute 

(b) on a ledge CLIMB ——- you 
must have the rope!! 

(c) by a door:- OPEN DOOR 
(in warehouse) 

(d) by a pigsty:- GO IN 

(e) the pig won’t let you past :— 
PUSH PIG 

(f) by lake:- SWIM (or SAIL/ 
ROW if you have the boat) 

(g) by the monument:— GO IN 

(h) in the monument:- GO 
OUT 

(1) by taxi rank:- GO TAXI 

(j) in bus queue:— WAIT 

(i) in bus:- WAIT 


most 


HINTS 


1. SWEARING:- gives 
response:— how dare you speak 
to me like that! etc:— reply 
SORRY or you will end the 
program 


2. don’t light dynamite!:— you 


get blown up 
3. CLOAD or LOAD only 
work if you have the software 
and are by the ORIC computer. 
4, in the bus queue:—- WAIT:- 
you will get on bus and find the 
ROMAN COIN:- then WAIT 
again to get off the bus 
5. by the monument:— GO IN to 
get the RADIO TRANS- 
MITTER 
6. on the beach:— where the 
sunbathers are:— give lotion ——— 
found in the supermarket to 
GET CAMERA 
7. to get the platinum bar:— you 
need the trolley:— to get this you 
need to examine the farmer to 
get the hint that you need the 
book of poetry 
(a) GET BOOK in the class- 
room and GIVE BOOK to 


the farmer! 

(b) GET trolley -—-- you will 
then be able to get the plati- 
num! 


8. to get the rocket fuel:— this is 
locked inside the shed near to 
the lake:— you need the key 
(near the crossroads) and must 
UNLOCK the shed 

9. to get the GOLD pen:-— it isin 
the classroom by the _ head- 
teacher. If you try to get it you 
will not be allowed: Try examine 
HEAD, which gives the clue 
that you should SING:- which 


24 Oric Owner 


will allow you to get the pen. 
10. To get the roman coin:— in 
the BUS queue: WAIT after 
getting the coin on the bus type 
WAIT again. 

11. to get the DIAMOND:- get 
DRIFTWOOD 

12. to get RADIO transmitter 
GO IN at the monument 

13. to get the SILVER BUL- 
LION:-DIG in the field:— you 
need the spade 

14. to get the egyptian POT- 
TERY:- this is in the LEAD 
CASKET:- you need the sword 
to OPEN CASKET 

15. to get the CAMERA:-~ give 
the sun lotion to the sunbathers 


‘Software 


16. to get the ZIRCONIUM:-— 
examine pebbles:— found in the 
stream! 
17. to move at random try 
PRAY:- which works 50% of 
the time 


FROM 

S. W. Lucas 

47 Longcroft Lane 
Cheadle Hulme 
Cheshire SK8 6SE 


I have been sent on a dangerous 
mission to a distant planet at the 
other end of the universe. The 
planet is called Earth and I have 
heard that this is a dangerous 


place for space travellers. My 
task is to find the ten earth 
treasures and bring them back to 
my space ship. In addition, I 
need to find some fuel for the 
return journey. You must give 
me instructions in the form of 
TWO WORD sentences such as 
GET ELEPHANT. The task is a 
difficult one. Good luck!!! 
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130 IFPP%=1 THENLSO 

140 NEXT:GOTO170 

150 IFE<OTHENPRINTCHRS (134)3 "That looks like:-" 

160 PRINTSS (T) :E=E+1:GOTO140 

161 PRINTCHRS (134) 5 

170 PRINT: PRINTCHRS (1353) 4 INPUT"What should I do now"; Z$:A=FRE("") 
171 C®=LEFTS(Z$,3) 

172 BS=LEFTS(Z$,1):CLS 

173 IFZ$="GO IN" THENGOSUB1650: GOTOSO 

174 IFZ$="GO TAXI" THENGOSUB1 470: GOTOSO 


173 IFCS="QUT"ORZ$="60 OUT" THEN2500 


180 IFZ$<>"GO IN" ANDLEFTS$(Z$, 2)="GO"THENPRINT" JUST USE THE FIRST L 


ETTER" : GOTOSO 


190 PRINT: PRINT:PRINT"HOLD ON A SEC! ":PING 


-200 IFBS="N"ANDSZ (PX, 1) < >OTHENP%=S% (P%, 1) s GOTOSO 


205 IFC8="WAL" THEN2Z000: ELSE IFC$="$IN" THEN2100ELSEIFC$="SAV" THENPRIN 
T"SORRY" : GOTOSO 

210 IFBS="W" ANDCS< >="WEA" ANDSZ (P%, 4) < >OTHENP%=S% (P%, 4) s GOTOSO 

215 BS=LEFTS(Z$, 2) 

220 IFBS="S"ANDMID$ (2%, 2, 1) <>"H"ANDSY (P%, 2) < >OTHENP%=S% (P%, 2) : GOTOS 
° 

230 IFBS$="SC" THENGOSUB1100:PRINT”’You have scored "sA%3" out of 11": 
GOTOSO 

235 IFC#="ROW"ORCS="SAI" THENGOSUB1490 


240 IFBS$="TH" THEN1240 


242 IFCS="E"ANDSZ(P%, 3) < >OANDMIDS (BS, 2, 1) <> "X" THENP%Z=SZ (PZ, 3) : GOTOS 


IFC$="LIG6" THEN2200 
IFB$="GE"ORBS="TA"ORB$="GR" THENGOO 
IFCS$="CLI“ORCS="DOW" THEN1 290 
IFBS="RE“ THEN1 190 

If (BS="FU" ORBS$="P1"ORCS$="BUG" ) THEN1 160 


IFCS="TIM" THENI540 


IFC$="DIG" THEN1630 

IF BS="HE" THENSSOEL SE IFCS="SEA" THENI520 

IF (BS="DR" ORBS="LE"ORC$="GIV") THEN7SO ELSE IFC$="OPE" THEN! 280 
IFCS="PHO"THEN 1450 ELSEIFBS="QU" THENI310 

IFCS="LOO"THENSO ELSE IFCS$="KIS" THEN1470 

IFB$="PR"THEN1180 ELSEIFCS="LOA“ORC$="CLO" THEN 480 ELSEIFBS="PU 


“THENI210 


290 TFC$="EAT"THENIS30 ELSEIF(BS="AT"ORB$="H] "ORBS="KI") THENSHOOT:G 


oTOasO 
295 IFCS$="O0PE" THENISSOELSE IFC$="EXA" THENS40 


300 IFC$="SWI" THENGOSUB1570EL SE IF (C$="USE"ORC$=" INS"ORC$="UNL” ) THEN 


IFC$="WEA" THEN1250 ELSE IFC$="JUM" THEN1270 
315 IFC$=" INV" THEN9OOEL SE IFCS="BUY" THEN1 370 
317 IFCS="CRA"THENPRINT"I D I O T":PING: GOTOSO 
SE AFES=" C00 “THENPRINT "How can I cook anything????":G0TO50 
320. KS=LEFTS (BS, 1) 
330 IFLEFT$(A$,3)<>"SOR"THENLL=1 ELSELL=0 
340 IFBS<>""ANDLL=1 ANDK$< >"S"ANDK$< >"N" ANDKS< >"E"ANDKS$< >" W" THENPRI 
NTX# (28) 
g0TOSO 
END 
FORH=17T085:FORD=1T04 
READ S%(H,D) : NEXT 
READGS$ (H) : NEXT 
FORH=1TOS1:READGS$ (H) ,B%(H, 1) s NEXT 
FORH=1T069: READNS (H) ,N%(H) = NEXT 
RETURN 
410 DATAO,0,2,0,In a field,0,4,3,1,by a stream,0,0,71,2,paddling in 
a stream 
415 DATA2,0,5,46,0n a footpath,0,0,77,4,0n a bridge,9,0,4,7,by a lak 
e 
a16 DATADN,9.6,0,byv a hut. Tt is locked,O,0,9.O,9n a sandy beach 
417 DATAO,0,10,B,0n a footpath,0,0,0,9,0n a cliff 
420 DATAO,12,18,0,at the bottom of a cliff,11,0,0,13,0n a beach 
423 DATAI4,0,12,15,0n a narrow trail,0,13,0,0,in a forest,0,0,13,0, 
on a ledge 
425 DATAO,0,17,85,0N A FOOTPATH, 0,0,19,16,BY A WALL,O,0,0,11,in the 
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427 DATAO, 20,0,17,by a building,19,21,0,0,at the entrance to a ware 
house, 20,0 

428 DATA22,0,in the warehouse,0,23,0,21,by some boxes, 22,0,0,0,by a 
door 

430 DATA23,0,38,25,in a carpark,0,0,24,26,in the high street 

435 DATA27,0,25,29,by a supermarket,0,26,0,28,in a supermarket 

437 DATAO, 29,27,0,by the checkout 

450 DATAZ8,0,246,30,in the high street,0,0,29,21,at the edge of town 


455 DATAO, 22,20,0,0n a road,31,0,33,81,at a road junction 


456 DATAO, 34,0 »259,9,0,0n a fo@tpath 


2,by a footpath 


457 DATAZ4,0,0,36,in a field,0,37,35,0,in a farmyard, 36,0,0,0,by a 


pigsty 
460 DATAS7,0,0,0,in the pigsty...It*s very smelly. a pig blocks 


my way 


463 DATAS8,40,0,0,by a tunnel, 29,0,0,41,in a tunnel 


465 DATAO,42,40,0,in a tunnel. I can see light,41,0,43,0 

466 DATAat the end of a tunnel,0,0,44,42,by an old mansion. It is 1 
ocked 

467 DATA4S,0,0,43,in a garden 

470 DATA446,44,0,0,in a garden, 47,45,52,0,by a gate, 50,46,48,0,in th 
e woods 

472 DATA49,0,0,47,in the woods,51,48,0,50,in the woods,0,47,49,0,in 
the woods 


475 DATAO, 49,0,9,in a clearing, 


3,9,46,0n a footpath, 52,54,0,0,0n 
a slope 
476 DATAS3,55,9,9,0n a steep slope 


480 DATAS4,56,0,0,at the top of a hill,55,57,0,0,by a monument 


482 DATAS6,0,0,0,at my spaceship. ,66,59,65,24,by some traffic light 
s 

485 DATASS,60,0,0,0n a pavement, 59,64,0,41,by an electrical shop 
490 DATAO,62,60,63,in an electrical shop,61,0,0,0,by the computer d 
isplay 

492 DATAO,0,61,9,in a TV demonstration room 

495 DATA60,0,0,0,by a newsagents. It is closed. 

496 DATAO,0,0,58,by a closed Fish & Chip shop,67,58,9,0,in a bus st 


ation 

500 DATA70,66,68,49,in a crowded bus station,0,0,0,67,in a bus queu 
e 

50S DATAO,9,67,0,in the enquiry office,90,67,0,0,by a taxi rank 

506 DATAO,72,723 son the muddy banks of a stream 


S07 DATA71, 


0,0,0n the banks of a stream 


S10 DATA76,74,75,71,in a quarry,73,84,0,0,by a hut,0,0, 3.by a bu 


lldozer 


512 DATAO,73,0,0,by a granite rock face 


513 DATAO,78,0,5,at the entrance to a primary school 


school 


515 DATA77,79,9,9,in the entrance hall of a primary 
516 DATA78,82,80,0,in a corridor,90,82,0,79,in a classroom 
517 DATAQ,9,32,0,0n a road. The way west is blocked by a fallen 
S20 DATA80,0,0,83,in a classroom,79,0,82,0,in an office 


525 DATA74, 0,0, 


sin a hut, 85,85,85,85,lost in a forest. 
S30 RETURN 


540 DATAa boat, 7,some pebbles,3,a shovel,2,,1,a rope,5,a secretary, 


542 DATAthe headteacher,80,a book of poetry,82,a 4GOLD#F pen, 80 

545 DATAa box,22,some newspapers,64,an ORIC micro,62,computer softw 
are,61 

546 DATAa can of baked beans,27,a taxi driver,70,a man,69 

S50 DATAa queue, 68,a pig,38, a monument,56,a gate,446,some mushrooms 


St 
+S 
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How to get the most out 
of your Oric 1 


By G. M. Phillips 


This series of articles on the 
workings of Oric BASIC con- 
tinues this issue with the subject 
of CONDITIONS. 


When do you need a condition? 
Computers rise above calcula- 
tors because of their ability to do 
different actions depending on a 
variety of circumstances. With- 
out conditional statements, a 
BASIC program would only fol- 
low one very restricted path. 


So aconditional statement is one 
that allows the program to 
BRANCH off to different line, 
or to perform other statements. 


The IF statement 

The ‘IF’ statement in BASIC 
exists (in some form) in all com- 
puter languages. An IF state- 
ment is written in two parts: the 
IF condition(s) and the actions 
that are to be performed if the 
conditions are satisfied. 


To indicate the start of actions, 
we use ‘THEN’, for instance: 


IF A=7 THEN PRINT 
“SEVEN” 


In the same way as you can have 
several commands on one line, 


so there can be many colon- 
separated commands after the 
THEN clause. 


e.g. IF A=22 THEN 
PRINT:PRINT “twenty two” 


The important thing to remem- 
ber is that the instructions after 
‘THEN’ are only executed pro- 
viding that the preceding condi- 
tions are true. The exception to 
this is when the “awful’ ELSE 
command is used. In this case, 
the ELSE stops the computer 
executing the actions when the 
conditions were satisfied, or acts 
like “THEN” if the tests were 
false. 

e.g. IF A$=“YES’ THEN 
PRINT “YEA” ELSE PRINT 
“NAE” 


Jumping around 

Instead of doing a few actions 
depending on a set of condi- 
tions, it may be that you have 
two totally different tasks to 
perform. For this, you will need 
to jump off to another line, and 
this is done by putting a line 
number after the THEN clause, 


_as in: 


200 IF Y=B THEN 1200 


If you want to do some other 


commands before jumping off, 
then you must specify ‘GOTO’ — 
for example: 


200 IF Y=B THEN 
PRINT:PRINT:GOTO 1200 


Multiple conditions 

We have seen how to include 
several action commands, 
simply by using colons, but it is 
the conditions which are harder 
to understand. 


The result of an ‘IF’ condition is 
either TRUE or FALSE, and 
this is represented (internally) 
by values of —1 and 0, respec- 
tively. This is because in the 
Binary system, —1 is in fact 1111 
1111 — i.e. all 1’s, whereas 0 is 
obviously all zeroes. 


In order to create a complicated 
conditional statement, we need 
to use the clauses: OR, AND 
and NOT. 
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The ‘OR’ clause is followed by a 
conditional statement which 
allows the outcome of the IF to 
be dependant several condi- 
tions. In the following example, 
we jump to line 300 if B is either 
9 or 23: 


30 IF B = 9 ORB = 23 THEN 
300 


You can use as many OR clauses 
as you like, to expand the condi- 
tions, or restrict conditions by 
using ‘AND’. | 


The AND clause is used in an IF 
statement to cut down the 
chances of the conditions being 
satisfied. For instance, in the 
following example, two condi- 
tions must be satisfied before the 
action is performed: 

300 IF B=9 AND C=33 
THEN PRINT 


You may use ‘AND’ with ’OR’ 
in any combination, though you 


have to be careful that your 
conditions are understood cor- 
rectly by the computer. 


e.g. 100 IF A=1 OR B=2 
AND C=4 


In line 100, it is not clear 
whether we mean ‘A is 1 or both 
‘B=2 and C=4 or ‘Both A is 1 
and B is 2 and also C is 4. 


To clarify this, as we also do in 
complex mathematical  state- 
ments, we use _ parenthesis. 
These brackets surround parts 
of the conditions which are to be 
interpreted first. So the two 
possibilities for our example 
would be: 

100 IF (A=1 OR B=2) AND 
C=4 

100 IF A=1 OR (B=2 AND 
C=4) 


The golden rule of logic is — 
Keep it simple. Use brackets 
whenever it could make a logical 
expression easier to understand. 
Also, try to avoid negative con- 
ditions, as in: 

IF A<>4 THEN PRINT 5 
ELSE PRINT 6 


Can you see what is wrong with 
this statement?: 


304 IF B=4 AND B=5 THEN 


Yes, the condition will never be 
satisfied because of the ‘AND’. 
Easy? — How about: 

100 IF B=8 OR (B=8 AND 
C=8) 


If B is 8 then we do not need to 
test the value of C. 


TRUE and FALSE 
Earlier we stated that a true 


condition had a value of —1, 
whilst a false one was zero. 


The use of this can be appre- 
ciated when you need a program 
switch, which is either on or off. 


A program switch could be used 
to indicate the result of a condi- 
tion, or perhaps indicate an 
error. 

Here is an example, where a flag 
is set depending on a compli- 
cated condition: 


1030 IF A=1 OR (B>82.2 
AND C<82) THEN 
FLAG=~—1 ELSE FLAG=0 


9:9. 


99 


2000 IF FLAG=—1 THEN 


99 99 


This is not using FLAG properly 
though; the IF/THEN can be 
simplified to: 

1030 FLAG=(A=1 
(B>82.2 AND C<82) 


which will assign the correct 
logical answer to FLAG accord- 
ing to the result of the condi- 
tional statement. 


OR 


In a similar way, we can improve 
line 2000 to: 


2000 IF FLAG THEN ,, ,, 


‘FLAG’ replaces the condition if 
FLAG=-~1, since it returns a 


correct logical value of —1 and 0. 
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How to get the most out of your 


This is fine when you want the 
condition to be dependant on 
FLAG, but if you wanted the 
opposite, you could either use: 
2000 IF NOT (FLAG) 
THEN... 
(NOT simply inverts the condi- 
tion, so that TRUE becomes 
FALSE and vice versa) 
or 
2000 
THEN. . 


IF FLAG=FALSE 


TRUE and FALSE are preset 
variables containing —1 and 0, 
respectively. These can be used 
anytime in the program — just as 
PI can replace ’3.14159’. 


TRUE could be used to clarify a 
program statement, such as ‘IF 
Y=TRUE THEN 880’, but is 
not actually ever required. (IF 
Y=TRUE is the same as IF Y!) 


Other conditional statements 
IF is only one of the conditional 
statements, but is a fundamental 
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I here and I remember 

I sea and I forget 

I do and it doesn’t even rhyme. 
— old Chinese proverb. 


part of the BASIC language. 
The same conditional logic can 
be found after the UNTIL com- 
mand, where AND, OR and 
NOT are available (But not 
ELSE!). 


ON X GOTO... and ON 
GOSUB are another type of 
conditional statement, though 
they are much less versatile. The 
manual explains these com- 
mands, and there is little to add 
here. 


In a similar vein, the GOTO XX 
—i.e.a GOTO depending upona 
variable value, is tremendously 
powerful. Its advantage over 
ON. .GOTO is that you do not 
need to specify dozens of line 
numbers for each value, but 
instead have to number your 
lines in some arithmetic progres- 
sion. 


For example, if you have 20 
different messages/sound effects 
to produce, you could use the 
following method: 


100 GOTO 8000+ NUM- 
BER*10 
8000 ZAP:PRINT“ZAP”: 


GOTO9000 
8010 PING:PRINT“PING”: 
GOTO9000 


and so on. The program jumps 
to a line number that depends on 
Z times 10 plus 8000. 


One disadvantage with this is 
that if RENUMBER is ever 
implemented on the ORIC, it 
could never be used on such a 
program! At the same time, this 
technique can save a lot of ON- 
GOTO lines! 


The second DEMO program 
(for later ORICs) contains an 
example of this, as does the 
program ‘HOUSE OF 
DEATH’. 
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553 DATAtraffic,32,a sword,43,a crab,18,a large key,58,,46,some pig 
droppings 

555 DATASE, driftwood, 12,a cigarette lighter,28,a farmer,36,a tracto 
r,35 

557 DATAsuntan lotion,27,a lead casket,49,a rubbish bin,25 

560 DATAa gnome, 14, sunbathers,8,a dead body..He must have got stuck 

here! 

365 DATA10O,a parachute,84,a bulldozer,75,,12,,56,a £PLATINUME bar,4 
ToaSa57 

567 DATAa gamekeeper ,48,,49,,21,a hammer,73,a stick of dynamite, 74 
568 DATAa woman,55,a viscious dog, 29 

570 DATABOAT, 1, PEBBLES, 2, SHOVEL, 3, SILVER, 4, ORB, 4, ROPE, 5, SECRETARY, & 
» HEAD, 7 

573 DATATEACHER, 7, BOOK, 8, POETRY, 8, GOLD, 9, PEN, 9, BOX, 10, JEWEL, 10 

575 DATANEWSPAPER, 11, ORIC, 12,MICRO, 12, SOFTWARE, 13, CAN, 14, BEANS, 14,T 
AXI,15 . 

577 DATADRIVER, 15, MAN, 16, QUEUE, 17,F 1G, 18, MONUMENT, 19 

580 DATAGATE, 20, MUSHROOMS, 21, TRAFFIC, 22, SWORD, 23, CRAB, 24 

584 DATAKEY, 25, ANCIENT, 47,MANUSCRIPT, 47, DROPPINGS, 27, DRIFTWOOD, 28 
585 DATACIGARETTE, 29, LIGHTER, 29, FARMER, 30, TRACTOR, 31, LOTION, 32,LEAD 
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588 DATACASKET, 33, RUBBISH, 34, BIN, 34, GNOME, 35, SUNBATHERS, 36, BODY, 27 


590 DATAPARACHUTE, 38, BULLDOZER, 39, DIAMOND, 40, RING, 40, RADIO, 41, TRANS 
MITTER, 41 

594 DATAPLATINUM, 42, BAR, 42, ZIRCONIUM, 43, ROCKET, 44, FUEL, 44 

595 DATAGAMEKEEPER, 45, PHEASANT, 45, POTTERY, 46, GRASS, 26, SNAKE, 26, HAMM 
ER, 48 

597 DATADYNAMITE, 497, WOMAN, 50, DOG, 51 

4600 GOSUB1020 

605 IFL%=1 THEN620 


610 BOTO170 


620 Ex=0 

630 FORH=1T051 

632 IFB%(H,1)=P% AND BZ(NZ(R),1)=P% THEN EX%=1 

640 NEXT 

650 IFEZ=0 THEN 170 

660 CLS: IF (R=Z80RR=29) THENAN=1:GOTOSO 

661 IFR=50THENB%=1 

662 IF R=6THEN AA=1 ELSE IFR=1THEN AB=1 ELSE IFR=3 THEN AC=1 ELSEIF 
R=31THENAE=1 

663 IFR=67THENAD=1 ELSEIFR=7THENPRINTX$ (16) :GOTOSO 

664 IF (R=8 ORR=9) THENPRINTX$ (17) : GOTOSO 

665 IF (R=22 ORR=23) THENPRINTX$(9) sGOTOSO 

666 IFR=24THENFRINTX$ (9) : GOTOSO 

667 IFR=69THENPRINT"GUCHHH. It bit me":GOTO1300 

668 IFPZ=6BANDR=25ANDAH=OTHENPRINTX$ (17) : GOTOSO 

669 IFR=26THENPRINT"I* ve just been trampled to death”":GOT01300 

670 IFR=27THENPRINTX$ (9) : GOTOSO 

671 IFR=30THENPRINTX$ (17) : GOTOSO 

672 IFR=36THENPRINTX$ (18) sGOTOSO 

673 IF (R=41 ORR=48 ORR=S1) THENFRINTX%(17) :GOTOSO 

674 IFPZ=S56AND (R=S40RR=55) ANDAP< > 1 THENPRINTIt’s not here": GOTOSO 
675 IFR=68THENPRINTX$% (16) : GOTOSO 

676 IFP%=49ANDR=63ANDAG< >1 THENPRINT"It’s not here”:GOTO5O 

677 IFR=31THENAR=1 ELSE IFR=40ANDAS< 21 THENPRINTX$ (17) : GOTOSO 

678 IF (R=S60RR=57) ANDAT= >1THENPRINT"It’s too heavy to carry": GOTOSO 
679 IFR=40THENAT=1 ELSEIFR=47THENPRINT"I* ve just been arrested for 
theft":GOTO1210 

680 IFR=S3THEN AF=1 ELSE IF (R=200RR=21) THEN AG=1 

681 IFP%=62AND (R=170RR=18) THENPRINTX$ (25) :GOTO1510 

682 IFR=61 THENPRINTX$(17):GOTOSO ELSEIFR=19 THEN AJ=1 

683 IFP%=1B8ANDR=22THENPRINT"“AAAGGGGHHH it’s caught my artery":GOTO1L 
300 = 

684 IFPZ=SANDR=S8ANDAO< > 1 THENPRINT"I can’t see it":GOTOSO 

685 IFR=62AND AI<>1THENPRINT"Won’t let me!!!":GOTOSO 

PRA TEP LEROAND (R= 1 2ORR=13) ANDAL< +1 THENPRINT"He won*t let me":GOTOSG 
687 IFP%=12ANDR=37ANDAM< >1THENPRINT"There*s something underneath" 
688 IFP4=12ANDR=37ANDAM > 1 THENGS$ (40) =" @DIAMOND# ring”: AM=1 


689 IFP%=49AND (R=430RR=44) THENPRINT"TOO HEAVY! ": GOTOSO 
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690 EZ=0 
700 FORD=1TO= 


705 IFV$(D)="" THENV$ (D) =G$ (NZ(R) ) SE%=1:2D=5 


710 NEXTD 


720 IFE%=0 THENPRINT"Just who do you think I am? SUPERMAN?":GOTO170 
725 BY (N%(R) , 1) =O: PING: GOTOSO 

730 GOSUB1020 

740 IFL%<>1THENPRINT"I haven*t got a"3L%: ZAP: GOTOSO 

750 E%=0 

760 FORD=1TO3 


765 IF V$(D)=G$(NZC(R)) THENVS$(D) = 


770 NEXT 


780 IFE%< 21 THENPRINT"Why are you so stupid? I don*t have it":FING:G 
oToso 

790 BAL(NZ(R) ,1)=P% 

800 CLS 

810 IFR=SOTHENE%=0EL SE IFR=6THENAA=OEL SE IF R=1 THENAB=OEL'SE IFR=3THENAC 
=0 


811 IFR=67THENAD=0ELSEIFR=231 THENAE=0ELSEIFR 


THENAF=0 

B12 IF (R=200RR=21) THENAG=0ELSE IFR=19THENAJ=0EL SE IFR=223THENAR=0 

812 IFP%=48ANDR=29THENFRINT"He*s so pleased he gives me a £ 
PHEASANTE" 

814 IFP%=48ANDR=29 THENGS (45) ="a #PHEASANTH": AIl=1:G$(21)="" 


815 IFFP%=BANDR=42THENFPRINTX$ (29) :N$ (42) ="CAMERA": Ak=1:G6$(32)="a £CA 


MERAE£” 

816 IFP“%=S8AND (R=260RR=220RR=490RR=640RR=65) THENFRINT X$ (20) s EXPLODE: 
GOTO1200 

817 IFR=380RR=29 THENAN=0 


818 IFP%=Z6AND (R=100RR=11) THENPRINT"He thanks me and gives me a tro 


lley" 


819 IFFP%=S36AND (R=100RR=11) THENG$(30)="a trolley":N$(40)="TROLLEY":G 
$(e)="" 

820 IFP%=36AND (R=100RR=11) THENAS=1 ELSEIFR=40THEN AT=0 

821 GOTOSO 

820 IFP%=2THENPRINT"I*m not doing that!":GOTOSO 


831 PRINT"You must be mad!!! !!":GOTOSO 


840 GOSUB1020 


850 IFP%=48ANDR=61THENPRINT"He has an empty basket and a £PHEASANT" 
:GOTOSO 

851 IFFP%=7ANDR=1 THENPRINTX$ (26) :GOTOSO ELSEIFP%=79ANDR=7 THENFRINTX$ 
(27) :GOTOSO 

852 IFFZ=SSANDR=68THENFRINT X$ (27) : GOTOSO 

853 IFPX=S5ANDR=41 THENFRINT"It’s so rusty it wouldn’t start":GOTO50 


854 IFPZ=8ANDR=48THENFRINT" They look as if they need some LOTION":G 


OTOSO 

855 IFFPZ=80AND (R=8O0RR=9) THENPRINT" I think he likes SINGING !!!":GOT 
@50 

856 IFP%Z=SANDR=2THENPRINT"I see something! !":G$(43)="A £4 TRCONT UME 


nugget":A0=1 


857 IFF%=SANDR=2THENGOTOSO 

858 IFFPZ=S6ANDR=27THENFRINT"I can see a way in!":GOTOSO 

859 IFP%=14ANDR=47THENPRINT"I think they sell them in WOOLWORTHS":G 
OTOSoO 

860 IFP%=SZ6ANDR=40THENFRINT"He says I can borrow his trolley if Ig 


et him a book" 


861 IFPZ=26ANDR=40THENGOTOSO 


862 IFPZ=1THENPRINT"The ground looks soft"GOTOSO 

862 IFFPZ=SBANDR=26THENFRINT"It isn*t too big to move!!!!":GOTOSO 
864 IFP“Z=29ANDR=469THENFRINT"The $£8%ing thing bit me!":GOTO1300 
890 PRINTCHR$(122)3"I can*t see anything special !":GOTOSO 

900 PRINT:PRINT: PRINTCHRS (123) 3 "I HAVE:—" 

905 Fx2=0: FORH=1 TOF: IFV$(H) < >"" THENFRINTV$(H) 2 FZ=1 


NEXT 
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920 IFF%=OTHENPRINT"Not a thing":GOTO170ELSEGOTO170 
930 CLS:PING: GOSUB1020: IFP%< >7 THENPRINTX$ (9) : GOTOSO 
934 IFAF< >1 THENPRINTX$% (19) : GOTOSO 


935 PRINTX$(20) :Q$(7)="by the hut. It is open": G$ (44) ="ROCKET FUEL 


940 GOTO50 
950 CLS:PRINT"I’m not going to solve this for you !!":GOTO170 
960 X$(1)="I get washed out to sea" 

961 X$(2)="great fun!" 

962 X#(3)="the water*s not deep enough" 

963 X$(4)="0.K." 

964 X$(5)="SAFE LANDING!" 

965 X$(6)="SPLAT!!1 tli" 

966 X$(7)="made it! Sure glad I had a rope" 
967 X#$(8)="I slipped!" 


968 X$(9)="SORRY!" 


969 X$(10)="The door opens" 

970 X#$(11)="WOW! I’ve been transported somewhere" 
971 X$(12)="nothing happened! Why not try again" 
972 X$(13)="I* ve found something!" 

973 X$(14)="DUMMY! I*ve nothing to dig with!!!" 
974 X#$(15)="the ground’s too hard!" 

975 X$(16)="I'm not that sort of person!" 

976 X#(17)="Why are you always so stupid???" 

977 X#$(18)="I'*m not carrying that! FHEW!" 

990 X$(19)="no key!" 


991° X$(20)="The door opens" 


throws me out som 


992 X$(21)="The driver takes me for a ride and 
ewhere" 
993 X$(22)="No boat! !" 


994 X$(23)="The boat drifts into a mooring. There is a footpath nea 


rby" 


995 X$(24)="not at the moment!" 


996 X$(25)="I get arrested for shoplifting 
997 X#$(26)="It looks O.K." 


998 X$(27)="She’s beautiful!" 


999 X$(28)="I*%m sorry I don*t understand you!" 

1000 X#$(29)="a girl thanks me so much she gives me a QCAMERAg" 
1001 X$(Z0)="The sunbathers scatter. I get trampledto death in the 
scare!" 

1010 RETURN 

1020 L$="" 

1025 FOR H=1 TO LEN(Z$) 

1026 IF MID$(Z$,H,1)="_" THEN L*=RIGHTS(Z$%,LEN(Z%) —H) :H=H+50 

1030 NEXT 

1040 R=0 

1050 L%Z=0:IF LEN(L$)<2 THEN RETURN 

1060 FOR H=1 TO 69 

1065 IF LEFT#(N$(H),LEN(L#))=L% THEN L%Z=1:R=H 

1070 NEXT 

1071 RETURN 

1080 CLS:PAFERO: INE7 

1082 PRINT: PRINT:FRINT" Journey of a Space Traveller" 

1082 FRINT: PRINT: FPRINTCHRS$ (129) 35" an adventure game" 
1084 PRINT: PRINT:PRINT" by" 


1085 PRINT: FRINT: FRINTCHRS (134) 5" S.W. Lucas" 


1086 PRINT:PRINTCHRS (120) 3 "<C> 1983" 


1087 FORX=1TO2:FORY=1 TO1S0:SOUND1, Y,15:SOUND2, 255-Y, 15: NEXTY,X 


1088 SOUND1,0,0:SOUND2,0,0 


1089 GOSUB2000 

1090 RETURN 

1100 A%=0: IFB% (32, 1) =S7ANDAK=1 THENAZ=AZ+1 
1110 IFB%(17,1)=S7THENAZ=AZ+1 
1115 IFBZ(9, 1) =S7THENA“Z=AZ+1 

1120 IFB%(44,1)=S7THENAZ=AZ+1 
1125 IF B%(40, 1)=S7THENAZ=A%+1 
1130 IFB%(45,1)=S7THENAZ=AZ4+1 
1132 IFB%(43, 1) =S7THENAZ=AZ+1 
1135 IFB%(41,1)=S7THENAZ=AZ+1 
1140 IFBZ(46,1)=S7THENAZ=AZ+4+1 
1145 IFB%(42,1)=S7THENAZ=AZ4+1 
1146 IFB%(4,1)=S7THENAZ=AZ+1 

1150 RETURN 

1160 CLS: PAPERO:PRINTCHR$ (129) 3 "How dare you speak to me like that! 


'"s PRINT: PRINT: PRINT: PRINT 
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Centipede 


By D. Barford and R. Bailey 


This is an Oric version of the old 
‘snakes’ game. You control your 
‘centipede’ which is wandering 
across the screen in search of 
food pills which have a numeric 
value. Each time your ‘centi- 
pede’ eats a food pill he gets a bit 
longer. You will be killed if you 
run into the wall or cross over 
yourself. 


This program should work quite 
happliy on the 16K and 48K 
Oric. 
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1 :POKE #26A, 2: PRINTCHRS (12) 2 I1T=1:PAPERO: INK46: GOSUB1000: GOTO2000 
2 GOTO 4000 

3 REM Centipede —- Main program 

4 CLS:FAPER 0: IC=INT(RND(1) *46) +1 

S IF IC=4THEN4SELSEINKIC 

& FORR=1T027:FLOTR, 1, CHR$ (255) s PLOTR, 25, CHR# (255) :SOUND 1, 10*R,5:NE 
XTR 

7 FORK=1T025:PLOT1,K, CHR$ (255) :FLOT37,K, CHR (255) : SOUND1, 10*K, 5: NEX 
TK 

8 WAIT 10:SOUND 1,0,1 

9 BS=CHR$ (9) = C=O: DIMX (3000) , Y(3000) : X=19: Y=10 

10 FORF=10TO19: X (F—-9) =F: Y (F-9) =10:PLOTF,10,"a":SOUND 1,10%F,5:NEXT: 
SOUND1,0,1 

15 P=11:PR=1 

17 PLOT14,0," "713 SPACES 

20 GOSUB165 

30 PLOT1I4, 0, "Score"+STRS( (F-PF)-10) 

35 Z$=KEY$: IFZ$>CHRS (7) ANDZ$<CHRS (12) THENBS=Z% 

40 Y=Y-(BS=CHRS$ (10) ) + (BS=CHRS (11) ) 2 X=X- (BS=CHRS (9) > + (RS=CHRS (8) ) 
45 IFSCRN(X, Y) =640RSCRN (X, Y) =255THENSOO 

47 GOSUB1SO 

SO X(P)=Xi¥(P)=V¥iF=P+1 

60 X1=X (PP): Yi=Y (PP) : IFSCRN(X1,Y1)=64THENPLOTXi.Y1," " 

6S PLOTX,Y, "a" 

70 IFC=OTHENPP=PF+t 

75 C=C+(C?0) 

100 GOTOZO 

1S0 F=SCRN(X,Y)—48: IFF< 10RF >9THENRETURN 

160 C=C+F 

162 FORV=F*e10TO1LOSTEF-1:SOUND 1,V,S:NEXT:SOUND 1,0,1 

165 PLOTINT(RND (1) *33) +2, INT (RND(1) #23) +2, RIGHTS (STR& (INT (RND (1) #9+ 
1)),1) 

170 RETURN 

175 REM: Game over routine. 

SOO IFKEY$<>""THENSOO 

S02 ZAP:WAIT2O 

SoS t $=" w ? 35 Spaces 

510 FORY=2T024:PLOT2, ¥,L%:NEXT 

515 PLOT 14,10, "GAME OVER" 

520 PLOT 4,12,"Press any key for another game." 

530 GOTO 2000 

S40 REM:Set up userdef*d char -— "a" 

1000 POKE46592, 12: POKE46593, 30: FORS=1TO04: FOKE46593+S, 45: NEXT 
1010 POKE46598, 30: FOKE46599, 33 

1020 RETURN 

1050 REM:Flay theme tune 

2000 IFKEY$< >""THEN2000 

2001 IF IT=i THEN GOSUB 5000 

2005 REPEAT 

2016 READ @ 

2015 IFQ=13THEN2035 

2017 IFQ=OTHENSS0O 

2020 MUSIC 1,4,8,5 

2035 WAIT 20 = 

2050 UNTIL FALSE 

3000 DATA 1,10,13,5,8,6,3,1,13,3,1,12.1,3,5,6,6,8, 10,8, 13, 13,15,15, 


3001 
3500 
3510 
3515 
3520 
3540 
3550 
4000 
4005 
4010 
4026 
4030 
4040 
4050 
Ago 
4070 
4080 
4090 
4100 
4110 
4120 
4136 
4i49 
150 
4146 
4176 
4174 
4180 
41982 
4190 
4200 
4210 
4220 
422s 
4230 
4240 
5000 
S005 
5010 
5020 
S030 
S032 
5040 
S050 
5060 
S070 
S080 
5090 
5100 
S110 
5120 
6000 


1,10, 


13 

DATA 5,8,6,3,1,13,3,1,13,1,3,13,3,5,3,1,6,13,0 

RESTORE 

SOUND 1,0,1 

IF IT=1 THENGOTOZELSEIT=0O 

IFKEY$="" THENSS20 

RUN4 

REM: Instruction routine 

M$="D9DDIIIIIDIDI CENTIPEDE D2DDDIIIA|DIIID" 

PRINTCHR$ (12): INK& 

PRINT: PRINT: PRINT 

FORI=1 TOLEN (M$) 

PLOT 1,0,RIGHTS (M$, 1) 

SOUND 1,50-1,5 

WAIT 8 

NEXTI 

WAIT 20:SOUND 1,0,1 

PRINT"The aim of the game is to move the “ 
PRINT'centipede around eating up the food" 

PRINT"which appears in the form of numbers." 

PRINT" For each number eaten,the centipede" 

PRINT"grows that number of segments longer." 

PRINT" You must not collide with the walls" 

FPRINT"or any part of the centipede’s" 

PRINT" growing body...":PRINT:PRINT: PRINT 

FRINTCHRS (129); "Use the arrow keys at the bottom of" 
PRINTCHRS(129):"the keyboard to move.":PRINT: PRINT: PRINT: PRINT 
FRINTCHRS (4) 3 
PRINTCHR$ (27) 3 "N 
FRINTCHRS (4) 
REM:Emit *oscillating’ sound 

FOR I=1TOZOOSTEF.1i 

T=SIN(1I) k100+150 

SOUND 1,7,2 

TFEEY¢< °-"" THENSOUND1,0, 1:CLS: RUNS 

NEXT I 

GOTO4200 

PRINTCHR$ (12) 

INE7: PAPERO 

FRINT: PRINT: PRINT 

PRINTCHRS$ (4) 

PRINTCHR$ (27) 5 "J 999999999909992999990290090999909029909902" 
PRINT 

PRINTCHR$ (27); "N daadda—DIIAIIIAD CENTIPEDE DdIIIIIADAIDA" 
PRINT 

PRINTCHRS (27) "J 999999999990999920099099999990999092" 
PRINTCHR$ (4) 

PRINT: PRINT: PRINT: PRINT 

PRINTCHR$(134);" by Duncan Barford & Richard Bailey":PRINT 
PRINTCHR$(129);" For the ORIC-1 48k" 
PRINT: PRINT:PRINT: PRINT: PRINT 

PRINTCHRS (131) 5" ";CHR$(96)5" Futureware 
RETURN 
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1161 PRINTCHR$(130)3"What have you got to say for yourself?":PRINT: 
PRINT 

1162 FORX=1 TO 3:FORY=1TO1S0 

1163 SOUND1,Y,15 

1164 NEXTY,X 

1165 SOUND1,0,0 

1166 INPUTZ$ 


SOR" THENCLS:FRINT:PRINT:PRINT"WELL BE LIKE THA 


1167 IFLEFTS$(Z%,3 
T THEN": GOTO1310 
1170 PRINT:PRINT:PRINTCHRS$ (129) "THAT’S BETTER! !":GOTO170 

1180 LETBN=INT(RND(1)*2) 

1181 IFBN=1THENPRINTX$ (11) :P%=INT (RND(1)*57) s FING: GOTOSOELSEFRINTX$ 
(12):GOTOSO 

1190 GOSUB1020 


1200 ZAF:FPRINT"I need my GLASSES": GOTOSO 


1210 IFP? SETHENPRINTCHRS (131) "not at the moment DUMMY": GOTOSO 
1211 GOSUB1020;: IFR=26THENPRINTCHR$ (131) "That*s done the trick. I ca 
n go SOUTH" 

1212 IFR=26THENS% (38, 2) =39:0$(38)="in a pigsty. Phew ! What a smell 
";GOTOSO 

1213 PRINTCHRS (121) "PUSH WHAT?" : GOTOSO 

1240 FPRINTCHR$(132)"I°M NOT THROWING ANYTHING HERE! ": GOTOSO 

1250 PRINTCHRS (133) "NOW WHO*S BEING SILLY?":GOTOSO 

1260 GOTOSO 


1270 IFFP%=10ANDB%< 21 THENFRINT"I jump from the top & break my neck": 


GOTO1300 
1271 IFP“Z=10THENP%=11:FRINTX$ (5) sGOTOSO 
1272 IFF“%=15STHENPRINTX$ (6) GOTO1300 


1273 PRINTCHR$(124)"are you always this stupid?":GOTOS0 


1280 IFP“Z=2STHENPRINTX$ (10) 2S% (23, 2) =24: GOTOSO 
1281 IFPZ=49THEN2600 

1282 PRINTX$(9) :GOTOSO 

1290 IFP%=15ANDAA=1 THENPRINTX$(7) :P%=16:GOTOSa 
1291 IFP%=1STHENPRINTX$ (8) : EXPLODE: GOTO1300 
1292 IFP%=17THENPRINT "SORRY": GOTOSO 

1293 IFP%=10THENPRINTX$ (6) : GOTO1300 


1294 PRINT"I DI OT ! !":GOTOSO 


1300 PRINT:PRINT: PRINT: PRINTCHRS (129) "I am"3CHR$(131)" DEAD": EXFLOD 


1310 PRINT: PRINT: PRINT: PRINT: PRINTCHR$(123)" do you want to play ag 
ain" 

1311 INPUTXS 

1212 IFLEFTS(X$,1)="Y"THEN RUN 

1320 END 


1330 IFAG=1THENPRINT"I need a can opener !":GOTOSO 


1231 PRINT"I don*t have any food! ":GOTOSO 
12340 FORH=1 TO 3: IF V$(H)=G$(22) THEN V$(H)="":G$(32)="" 
1241 NEXT 


1250 FORH=1 TO 2: IF V$(H)=G$(7) THENV$(H)="":G8(7)="" 


351 NEXT: GOTOSO 


1360 GOTOSO 


1370 IF AF« 21 THENPRINTCHRS (134) "What with?":GOTOSO ELSEGOSUB1020 


1380 IFFPZ=4AND(R=10 OR R=11 ORR 


ORR=24 ORR=62) THENIS 


12381 PRINTCHRS (13 


“NOT AT THE MOMENT! ":GOTOSO 
1390 FPRINTX$(9):FORD=1 TO 3 


1391 IFV$(D)=G$ (33) THENV$ (D) ="SOME CHANGE": G& ="SOME CHANGE": N& ( 


48) ="CHANGE" 

1400 NEXT: GOTO1410 

1410 FPRINTCHRS (129) 

1420 N# (48) ="CHANGE": GOTOSO ~ 


1430 PRINTX#(8) 2S%(31, 4) =26:S%4 (31, 2) =29:S% (31 O:G$(11)=""2G$916 


y=""3GOTOSO 

1440 GOTOSO 

1450 FPRINT'I*m not"CHR$(129)3" E.T"sCHRS(135) "you know. I need a FH 
ONE": GOTOSO 

1460 X$(2O)=""2XH$(21) =" "2: PRINTX$ (22) 2G$ (17) =""2S% (37,35) =36: FING: GS ( 
21)="":GOTOSO 

1470 GOSUB1020 

1472 IFP%=79THENFRINT"She likes that! ":GOTOSO 

1473 IFP%=SSTHENPRINT"She slaps me across the face and runs aw 
ay'!":G$(50)="" 

1474 IFPZ=SSTHENGOTOSO 

1475 PRINT"EH?":GOTOSO 

1480 IFP%< 262THENPRINT"not at the moment. DUM DUM": GOTOSO 

1481 IFAJ< 21 THENPRINT"you don*t have a program! ":GOTOSO 

1482 PRINT"WELL WASN*T THAT FUN” 


1482 PRINT: FRINT: PRINT: FRINTCHR$ (129) "IT WAS ANOTHER OF THOSE GREAT 
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SUI}SI] WUeISO1d 


oIeMAJOS 


4IUMQ) IMC 


Le 


1484 PRINT"FOR ORIC PLAYERS": GOTOSO 

i520 IFP%=21THENG$(47)="an ancient manuscript" 
1521 IFP%=4STHENG$(26)="a grass snake" 

1530 GOTOSO 

1540 PRINT"I DON’T HAVE A WATCH": GOTOSO 


1550 IFP%=18THENPRINT"NOTHING HERE": GOTOSOELSEFPRINT"SORRY": GOTOSO 


.1560 GOTOSO 


1570 IFF“%=18THENPRINTX$ (1) 3 ZAP: GOTO1300 

1580 IFP%=120RPZ=2THENPRINTX$ (2) : RETURN 

1590 [FP%=710RF%=720RP%=2THENFRINTX$ (3) : RETURN 
1600 IFF%=B8THENF%=6: FRINTX$ (4) : RETURN 

1610 IFP%Z=6THENP%=8: PRINTX$ (4) : RETURN 

1620 PRINT"DON’ T BE SILLY": RETURN 

1650 IFP%=1ANDAC=1 THENGS (4) ="9SILVERH BULLION": PRINTX$ (13) 
1621 IFP%=1ANDAC< > 1 THENPRINTX$ (14) 

1632 IFP%<¢ >1 THENPRINTX% (15) 

1640 GOTOSO 

1650 IFP%=37THENPRINTCHRS (129) "O.K. "2 P2=382 RETURN 
1655 IFP%Z=S6THENFRINT"O.K. It*s gloomy in here." 


1656 IFP“Z=S6THENCS$ (56) ="inside the monument": AF=1:5% (56, 1) =0:S%(56, 


1657 G$(19)=""2G$(41)="A PRADIOP transmitter": RETURN 
1660 FPRINTCHR$ (121) "NOT NOW! ": RETURN 
1670 IFP%< >7OTHENPRINTX$ (9) : RETURN 


1680 P%=77:PRINTX$ (21) s RETURN 


1690 IF ABs >1THENPRINTX$ (22) : RETURN 


P%=16: RETURN 


1691 IFFP%=6THENPRINTX$ (25 
1492 IF (P%=20RP%=8ORP%= 1 ZORP%=18) THENPRINTX$ (24) s RETURN 

1693 FPRINTX$(17):RETURN 

1700 RETURN 

2000 CLS 

2001 IFP%=6B8ANDAH< > 1 THENGS (17) ="A ROMAN FCOIN@' : OS (68) ="RIDING ON A 
BUS" 

2002 IFF%=68ANDAHé = 1 THENPRINT"I get on a-bus and go for a ride":N$( 
25) ="COIN" 

2003 IFP%=68ANDAH< > 1 THEN S% (68, 4) =0: S% (67, 3) =O: AH=1: GOTOSO 

2004 IFPZ=68THENPRINT"The bus stops at the terminus":P%=77:GOTOSO 


2005 IFP%=250RP%=260RP%=270RP%=28THENPRINT"I GET ARRESTED FOR LOITE 


RING": GOTO1310 


2006 IFPZ=290RFP%=S80ORP2Z=S9ORPY%=60THENPRINT"I GET ARRESTED FOR LOITE 
RING": GOTO1210 

2007 IFP%=610RP%=620RF%=630RP%=464THENPRINT"I GET ARRESTED FOR LOITE 
RING": GOTO1310 

2008 IFPZ=650RF%=77THENPRINT"I GET ARRESTED FOR LOITERING":GOTO1310 
2009 PRINTCHRS$ (129) "O.K.":WAIT100: GOTOSO 

2100 PRINTCHR#(131)"f°m not very good but I*11 try anyway" 

2101 FORZ=1T04:FORX=1TO20: FORY=1T010 

2102 SOUND1,X,15:SOUND2,Y,15 

2103 NEXTY,X,Z:SOUND1,0, 0: SOUND2,0,0 

2104 PRINT" WASN? T THAT TERRIBLE?" 


2105 IF P%=B0THENIFAL=OTHENFRINT"BUT he seems to like it and puts " 


2106 IFP%=8OTHENIFAL=OTHENFRINT"the pen onto the table for me":AL=1 


2107 GOTOSO 


2200 IFAD« 
2201 IFAN¢ }1THENPRINT"I don*t have anything to light it with!":GOTO 
so 

2202 PRINT"BANG!!!!:EXPLODE:GOTO1300 

2500 IFPY%=S6THENFRINT"O.K. ":0%(56)="by a monument":S%(56,1)=55: S215 
6,2)=57 

2501 IFP%=S56THENGS (19) ="A monument": GOTOSO 

2600 IFAR< >1THENFRINT"I’11 need something to prise it open": GOTOSO 
2601 PRINT" THAT’S DONE THE TRICK! "::G%(46)="some egyptian £POTTERYE 
":AQ=1:GOTOSO 


CLS: PRINT: FRINT: PRINTCHR$(129)"A DVEN TUR —E" 


O10 PRINT:PRINT:PRINTCHR$(131)"I have been sent on the first fligh 


2020 PRINTCHR$(131)"from my planet to the planet EARTH" 


020 PRINT: PRINTCHRS (122) "my task is to recover the 10 valuable" 


2040 PRINTCHR$ (133) "TREASURES and to locate the fuel for " 

2050 PRINTCHR$ (122) "for my return journey" 

3060 PRINT:PRINTCHR$(131)"I must take my treasures to the ship" 
3070 PRINTCHR$(121)"for the return journey” 

3080 PRINT:PRINT: PRINTCHR$(129)"I understand two word sentences" 


Zz090 PRINT"you must be my guide and help me to":PRINT"solve my ques 


3100 RETURN 


>I THENFRINT' OT AT THE MOMENT" =: GOTOS® 
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Ten Tips to Tape- 
Recording 


1. Make sure that the lead 
from your cassette recorder to 
your Oric does not cross over 
any other electrical cables. 
Check that the ends of the 
lead’s wires are properly sol- 
dered inside their plugs, and 
that these are securely located 
in the respective machines. 


2. Check that your Oric is run- 
ning properly (it is best to start- 
up your Oric separately from 
any other electrical equipment, 
by clicking-on your wall socket 
switch after the transformer- 
plug has been pushed in), and 
that you have typed-in_ the 
command CLOAD “NAME” 
for a_ fast-loading tape, or 
CLOAD “NAME”, S for a 
slow-loading one; where 
NAME is the name of the pro- 
gram. Having typed-in this com- 
mand press the RETURN key 
and wait for the ‘searching’ mes- 
sage to appear at the top left of 
your TV screen. 


3. Check that your _ tape- 
recorder is set to maximum 
treble, minimum bass, and 
three-quarters volume. Check 
that you have rewound the tape 
to the appropriate point (or the 
beginning if you’re not sure), 
and then press the play switch. 


By R. White 


Siem oe ES CSIER — 
PLA 
REWIND 


RECORD 


4. If your cassette lead is con- 
nected to your tape recorder by 
a DIN plug, the chances are 
that you will be unable to 
switch-off the noise of your 
programme while it is loading. 
To stop this tiresome sound, 
buy a 3.5mm jack plug (about 
20p) available from most elec- 
trical shops, and insert it in the 
EAR socket of your recorder. 
You will find that this prevents 
the noise coming out of your 
speaker, while still allowing the 
program to be transmitted to 
your Oric. 


5. If your program consistently 
fails to load, or keeps loading 
with errors, then you will pro- 
bably need to give your tape 
recorder an overhaul. First buy 
some ‘Q-tips’ cotton buds, anda 
small bottle of iso-propyl alco- 
hol; both available cheaply from 
Boots and most other chemists. 
Dampen the end of a Q-tip with 
the iso-propyl alcohol and then 
rub it vertically up and down 
over the recording head 1 of 
your cassette player. Repeat this 
with more Q-tips until they stop 
picking-up any brown oxide. 
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On some tape-recorders it is 
possible to press the play control 
without a cassette in place, and 
with the lid open. If this is the 
case with your recorder then 
you're lucky, as you can clean 
your pinch-roller 2 simply by 
pressing a damp _ cotton-bud 
against it while it rotates. If 
you cannot play your recorder 
with the lid open you will have 
to perform this operation man- 
ually, turning the pinch-roller 
and rubing cottun-buds against 
it until they remain clean of 
any brown oxide. Finally the 
same process should be carried- 
out on the capstan 3. 


6. Automatic cassette cleaners 
are not really capable of clean- 
ing your recorder as thoroughly 
as can be done by hand, though 
they do provide a useful back- 
up. Manual cleaning should be 
carried-out about once a month 
if your recorder is being used 
heavily, while an automatic 
tape-cleaner can usefully be 
employed weekly to maintain 
optimum condition. 


7. It is also essential to keep 
your recording head free of mag- 
netism, so the best thing is to 
buy a combined automatic head- 
cleaner and demagnetising tape 
(available from W. H. Smiths 
for around £3.00). The demag- 
netising properties of this tape 
will long out-last its cleaning 


ability, so it makes good eco-- 


nomic sense to carry-out the 
manual cleaning thoroughly and 
regularly, leaving the automatic 
cleaner mainly as a demag- 
netiser. 


8. If your recorder still per- 
forms badly after all this care 
and attention, the chances are 
that its azimuth is set at a fre- 
quency unsuitable for computer 
data transmission. Resetting the 
azimuth involves nothing more 
than the slight adjustment of a 
single tuning screw, which may 
be done by a complete novice 
with nothing more than a small 
electrical screw-driver. 
However, if possible have it 
done by an electrician with the 
aid of an oscilloscope, as this 
will yield the best possible 
results, and really ought not 
cost more than a pound or two. 


9. If you cannot find a suitable 
electrician, or you are as rash 
and miserly as myself, you will 
start playing a tape on your 
recorder and then carefully 
insert your screwdriver through 


the small hole 4 on the top of 
your recorder. If there is no hole 
on your recorder it will have to 
be taken apart, in which case 
you are definitely well advised 
to go to an electrician. While 
listening to the sound of your 
tape, gently turn the azimuth 
adjusting screw underneath the 
hole, back and forth until the 
tape plays with the clearest 
highest frequency (treble and 
tinny) sound. I’ve done _ this 
myself, and was surprised how 
easy it was to make a major 
improvement to my recorder’s 
performance. 


10. If you’ve done all of the 
above and your recorder still will 
not load and save your pro- 
grammes reliably, either buy a 
new recorder, request your doc- 
tor for some librium, or put-in 
for a lobotomy! 
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Dates 


TUESDAY 


This useful program will allow 
you to print a calendar, work out 
when Easter Sunday falls, it tells 
you the difference between two 
dates and if you type in a date it 
will tell you which weekday it is. 


1 REM ** DATES ** 
5 PRINTCHRS (17) :GOSUB1460:WAIT406 


18 


220 
236 
249 
256 
266 
279 
CHR 
286 
298 
169 
101 
162 
103 
104 
165 
106 
107 
168 
109 
116 
lll 
112 
113 
114 
115 
116 
117 
118 
119 
126 
121 
122 


DIMCS (3) ,MS (11) ,DS (6) ,D(2) 
FORI=GT03:READCS (I) :NEXTI 
FORI=@TO11:READMS (I) :NEXTI 


FORI=0T06: READDS (I) XTI 

cs=" "sES=CHRS (12) +CHRS (7)+CHRS(17)+"INVALID " 
RS=CHRS (7) +CHRS (17) +" Press 'R' to return to menu" 

SS=CHRS (27)+"J" 


DEF FNA(F1)=F+INT((F1l-1)/4)-INT(.75*INT(((F1-1)/100)+1)) 
DEF FNB(F1)=F-INT(.4*D(1)+2.3)+INT(F1/4) -INT(.75*INT(F1/100) +1) 
CLS: PAPER@: INK]: PRINT: PRINT: PRINTCHRS (4) 
PRINTSPC(9)SS"1. "CS (6) :PRINT: PRINT: PRINT 
PRINTSPC(9)SS"2. “CS (1): PRINT: PRINT: PRINT 
PRINTSPC(9)S$"3. "C$ (2): PRINT: PRINT: PRINT 
PRINTSPC(9)SS"4. "LEFTS (C$ (3) ,18): PRINT 
PRINTSPC(12)S$"TWO DATES": PRINT: PRINT: PRINT 
PRINTSPC(9)SS"5. END"“:PRINTCHRS (4) 
PLOT@,26,CHRS (0) +CHRS (22) +" Please enter your choice" 
GETAS: Z=VAL (AS) : IFZ<1ORZ>STHEN120 
FORI=0TO1-2* (Z=4) 
X=13:Y=(Z-1) *4+3-2* (Z=5) : PLOTX, Y+I ,CHRS (X+1) 
NEXTI 
WAIT317:CLS: PING 
IFZ=5THEN24G 
X=INT ((38-LEN (C$ (Z-1))) /2) 
FORI=2T039: POKE#BB8O+1 ,32:NEXTI 
FORI=1TOLEN (CS (Z-1)) : POKE#BB80+X+I ,ASC (MIDS (C$ (Z-1) ,1,1)) :NEXTI 
DOKE#BB81,4355 
ONZGOSUB200G , 3409 ,4900,5908 
DOKE#8B81,4696:GOTO4G 
GS=CHRS (0) +CHRS (19) 
PLOT8,19,GS+CS+" "+CHRS (16) 
PLOT8,11,GS+" "4+CHRS (12)+"JOB DONE "+CHRS (16) 
PLOT8,12,GS$+CS+" “+CHRS (16) :PLOT8,13,GS$+" PROGRAM EXITED "+ 
$ (16) 
PLOT8,14,G$+CS+" "+CHRS (16) 
WAIT490:CLS: PRINTCHRS (17) : ZAP: END 
@ REM ** INPUT ROUTINE ** 
@ A1S="":X1=xX@ 
@ REPEAT 
@ GETAS$:IFASC (AS) <>127THEN1068 
® XO=- (XG-1)* ( (XG-1) >=X1) -X1* ( (XO-1) <X1) :PLOTX9,Y," " 
@ A1S=LEFTS (A1$,LEN (A1$)-1) :GOTO1836 
@ IFAS<>CHRS$ (13) THENA1LS=A1S+AS 
@ PLOTXO,Y,AS:X@=XxXG+1 
@ UNTILAS=CHRS (13) 
6 RETURN 
@ REM ** DATA ROUTINE ** 
@ x@=X:GOSUB1OOG 
@ CH=1:N=0 
® FORI=1TOLEN(A1S) 
@ BS=MID$(A1S,1,1) :CI=(1I=LEN(A1$)) 
@ IFBS>="6"ANDBS<="9"ORBS="/"THEN1176 
© PLOTX-1,Y,ES+"DATE "+CHRS (16) :WAIT215: PLOTX-1,Y,G$+C$:GOTO1110 
8 IFBS<>"/"ANDNOTCITHEN1 209 
@ D(N)=VAL (MIDS (A1$,CH, I-Cl!-CI)) 
@ CH=I+1:N=N+1 
@ NEXTI 
@ IFD(2)<15830RD (1) <1ORD (1) >120RD (0) <1 THEN11690 
@ IF(D(1)=40RD(1)=60RD(1)=90RD(1)=11) ANDD(@) >38THEN116@ 
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Lésu Lb (1) S>2ANDD (HW) >SLiHLULLOU 

1248 Y1l=D(2)-INT(D(2) /4) *4:¥2=D(2)-INT(D(2) /108) *186 

1250 Y3=D(2)-INT(D(2)/406)*400 

1266 IFD(1)=2ANDD (0) >28- (YL=GANDY2<>GORY3=G) THENL160 

127@ RETURN 

130¢ IFS=1THENPLOTX,14,"st" 

1310 IFS=2THENPLOTX,14,"nd" 

132@ IFS=3THENPLOTX,14,"rd" 

1338 RETURN 

1400 REM ** TITLE ** 

1418 AS=CHRS(19)+"#,(28 spaces) ,#"+CHRS (17) 

1420 CS="###HRRHHRHRHAER REE RER RHR EER 

1436 CLS:PAPER1:INKO 

1446 PLOT3,7,CHRS (19) : PLOT35,7,CHRS$ (17) : FORI=8TO18: PLOT3, 1 ,AS:NEXTI 
14586 PLOT3,19,CHRS (19) :PLOT35,19,CHRS (17): PLOTS, 8,C$:PLOTS,18,CS$ 
1468 PLOT16,11,"DATES":PLOT16,12,"----- be 

1476 PLOT9,15,CHRS(96)+" Gary Nugent, 1983." 

1480 RETURN 

2000 REM ** CALENDER ** 

2016 CLS:PAPER@:INK3 

2060 PLOTO,10,CHRS$(7)+CHRS(28)+"Year (1753 -25609) :"+CHR$ (16) 

2670 X@=23:Y=10:GosUuB1G0G 

2680 FORI=1TOLEN(A1S) 

2090 IFMIDS(A1S,1,1)>="@"ANDMIDS (ALS,1,1) <="9"THEN2110 

2168 PLOT23,Y,ES+"YEAR "+CHRS (16) :WAIT215:PLOT23,Y,CS$:GOTO207@ 

2110 NEXTI 

2115 YR=VAL(A1S$) :IFYR<17530RYR>25006THEN2100 

2126 PLOTG,12,CHRS (7)+CHRS(20)+"Month (1-12, 0 for all) :"+CHRS (16): 
WAIT215 

2136 XC=27:Y=12:GOSUB1000 

2140 FORI-1TOLEN(A1S$) 

2150 IFMIDS$(A1$,I,1)>="@"ANDMIDS (A1S$,1,1) <="9"THEN2170 

2160 PLOT27,Y,ES+CHRS (16) :PLOT228,Y¥+1,LEFTS (ES,3)+"MONTH "“+CHRS (16) 
:WAIT215 

2165 PLOT27,Y,C$:PLOT28,Y+1,C$:GOTO213¢ 

2170 NEXTI 

2180 M=VAL(A1$) :IFM<GORM>12THEN2160 

2198 IFM<>OTHENGOSUR2380:GOTO2240 

220@ FORM=1T012:GOSUB2300 

2210 IEM<12THENPLOTO, 26,CHRS (7)+CHRS (17) +" PRESS 'C' TO CONTIN 
UE" 

2220 IFM<12THENGETAS: IFAS<>"C"THEN22202230 NEXTM 

2246 PRINTSPC (10) CHRS (27) “A"CHRS (27) "SMONTH: "CHRS (27) "P"CHRS (27) "B" 
7MS (M-1) 

2250 GETAS: IFAS<>"R"THEN2256 

2260 RETURN 

2300 A=YR+1+31* (M-1)+INT((YR-1) /4)-INT(3* INT (INT (YR+99)/108) /4) 
2310 IFM>2THENA=YR+1+31* (M-1) -INT( (4*M+23) /10) +INT(YR/4) 

2320 IFM>2THENA=A-INT (3* INT (INT (YR/168) +1) /4) 

2330 A=A-INT(A/7)*7 

2340 IFA=OTHENA=7 

2350 A=A-1 

2360 IFM=2THEN2400 

2370 N=31 

2389 IFM=4ORM=60RM=90RM=11THENN=39 

2398 GOTO2420 

2408 N=28 

2410 IFYR-INT(YR/4) *4=OANDYR-INT (YR/100) *100<>OORYR-INT(YR/408) *400 
=0THENN=29 

2420 CLS:FORI=1T05: PRINT:NEXTI 

2430 PRINTSPC (10) CHRS (27) "A"CHRS (27) "SYBAR: "CHRS (27) "P"CHRS (27) "B"; 
YR: PRINT 

2450 PRINT: PRINT: PRINT 

2468 PRINTSPC(4)CHRS (27)"G"CHRS (27)"TSun Mon Tue Wed Thu Fri Sat "C 
HRS (27) "Pp" 

2470 PRINT: PRINTSPC(7); 

2480 IFA=OTHEN2500 

2490 FORI=1TOA:PRINT" ";:NEXTI 

2500 FORI=1TON 

2510 IFI=<1@THENPRINT" "; 

2515 PRINTI; 

2526 A=A+1:IFA<>INT(A/7)*7THEN254@ 

2530 A=G:PRINT: PRINTSPC (6); 

2540 PRINT" "; 

2550 NEXTI 


FRIDAY 


30 
AUGUST 


2560 KLTURN 

3006 REM ** WEEKDAY: ** 

3010 FORI=1T09:PRINT:NEXTI: PRINT" ";:PLOTG,9,CHRS (4) +CHRS (23) 
3028 GS$=CHRS (3) : PLOT22,9,CHRS (16)+G$ 

3839 PRINT"DATE (d/m/y) [>1582]:" 

3048 X=24:Y=9:GOSUB1100 

3650 F=365*D(2)+D(0)+31* (D(1)-1) 

3068 IFD(1)<=2THENF1=FNA(D (2) ) ELSEF1=FNB(D(2)) 

3070 W=F1-INT(F1/7)*7 

3088 PRINT: PRINT: PRINT: PRINT: PLOTG,14,CHRS (2) 

3096 PRINTMS(D(1)-1)" "D(G)" "; 

3169 S=D(8)-INT(D(G)/1G) *10:X=LEN (M$ (D(1)-1) +STRS(D(8))) +1 
3116 IFD(@)>1@ANDD(8)<20ORS=GORS>3THEN PLOTX,14,"th":GOTO3130 
3126 GOSUB1368 

3138 PRINTD(2)"was a "DS(W)"." 

3140 PLOTG,26,RS 

315@ GETAS: IFAS<>"R"THEN3150 

3168 RETURN 

409600 REM ** EASTER SUNDAY ** 

4010 FORI=1T09:PRINT:NEXTI: PRINT" ";:PLOT@,9,CHRS (8) +CHRS (19) 
4020 PRINT"YEAR (1-25600):" 

4038 PLOT19,9,CHRS (16)+CHRS (5) 

4040 X0=21:Y=9:GOSUB1000 

4058 FORI=1TOLEN(A1S) 

4069 IFMIDS(A1S,1,1)>="O"ANDMIDS (A1S,1,1)<="9"THEN4080 

4978 PLOT290,Y,ES+"YEAR "+CHRS (16) :WAIT215: PLOT28,Y,CS:GOT04030 
4080 NEXTI 

4096 YR=VAL(A1$) :IFYR>LORYR<25099THEN4070 

4108 K=INT(YR/100) 

4110 IFYR>1752THEN4136 

4128 P=15:Q=6:GOT04150 

4130 L=INT(K/4) :M=INT((K-17)/25) :N=INT((K-M) /3) 

4146 P1=15+K-L-N: P=P1-30* INT (P1/3@) :Q1=4+K-L:Q=Q1-7* INT(Q1/7) 
4150 A=YR-4* INT (YR/4) :B=YR-7* INT (YR/7) :C=YR-19*INT(YR/19) 
4168 D1=K*C+P:D=D1-30* INT (D1/30) :EL=2*A+4*B+6*D+Q:E=F1-7* INT(E1/7) 
4170 F=D+E:IFF>9THEN4196 

4180 DT=22+F:NS=MS (2) :GOTO4 200 

4190 DT=F-9:NS=MS (3) :IFF=34O0RF=35THENDT=DT-7 

4296 S=DT-INT(DT/190) *10:X=LEN (STRS (DT) ) +23 

4210 PRINT: PRINT: PRINT: PRINT: PRINT" EASTER SUNDAY: "; :DOKE48601,56 
32:DOKE48617,1046:PRINTNS” "DT" "; 

4220 IFDT>1GANDDT<2G0ORS=GORS>3THENPLOTX,14,"th":GOT04246 

4238 GOSUB13996 

4240 PRINTYR"." 

4250 PLOTG@,26,R$ 

4268 GETAS: IFAS<>"R"THEN4260 

4278 RETURN 

5000 REM ** DIFFERENCE BETWEEN ** 

5001 REM ** TWO DATES ial 

5910 FORI=1T07: PRINT:NEXTI:PRINT" ";:PLOT@,7,CHRS (3) +CHRS (20) 
5820 GS=CHRS (5) :PLOT22,7,CHRS (16) +G$ 

5038 PRINT"DATE 1[(d/m/y>1582]:" 

5040 X=24:Y=7:GOSUB1100 

505@ F=365*D(2)+D(@)+31*(D(1)-1) 

596@ IFD(1)<=2THENF1=FNA(D(2)) ELSEF1=FNB(D (2) ) 

5670 PRINT:PRINT:PRINT" "; 

5080 PLOTO,10,CHRS (3)+CHRS (20) : PLOT22,16,CIRS (16)+GS 

5098 PRINT"DATE 2 [d/m/y>1582):" 

5108 X=24:Y=10:GOSUB1106 

5110 F=365*D(2)+D(G)+31*(D(1)-1) 

512@ IFD(1)<=2THENF2=FNA(D(2)) ELSEF2=FNB(D(2)) 

5130 PRINT: PRINT: PRINT: PRINTCHRS (27) CHRS(2)" Difference between dat 
es is "ABS (F2-F1l) 

5148 PRINTCHRS (27)CHR$(2)" days.” 

5158 PLOTG,26,R$ 

5166 GETAS:IFAS<>"R"THEN5160 

5179 RETURN 

10090 REM ** Data req'd by program ** 

16018 DATA CALENDER,WEEKDAY,EASTER SUNDAY,DIFFERENCE BETWEEN TWO DA 
TES 

16828 DATA Ja uary,February,March,April,May,June 

16030 DATA July,August,September ,October ,November , December 
10646 DATA Saturday,Sunday,Monday, Tuesday,wWednesday,Thursday,Fviday 


MONDAY 
| F | 
OCTOBER 


—_, 
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Software 


Skiing 


The game for any model ORIC, 
when RUN produces a course of 
trees and flags, the object being 
to manoeuvre the skier without 
hitting the flags or the trees. You 
get five lives to do this. 


The double life lost on the game, 
is caused by player getting killed 
and pressing another one of the 
control keys. You control the 
skier using the cursor keys. 


When RUN you will be asked to 
enter a skill level from 1 to 15 (1 
being the hardest) take it from 
me it is very hard on level 1. 


This is how it works: 

10-16 Defines the characters 
(these can be changed on 
desire). 


41-78 Sets the screen. 
100-160 Moves skier. 


170-180 Checks if skier has hit 
a) flag, b) tree, c). winning post. 


300-320 If a tree has been hit, 
these lines tell you. 


400-440 Same as 300 but for the 
flag. 


500-570 No lives left, ask for 
new game. 


800-870 Instructions and _ skill 
level input. 


900-970 The celebration of get- 
ting to the finishing post. 


1000-1080 Data statements for 
forming the screen. 


The game is saved on both sides, 
at both speeds. On side 1 


CLOAD‘“SKI”’S. There are 
more copies on both sides, just 
in case. 
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4IUMQ) IUQ 


tv 


CLEAR 

PAPERS: INK? 

GOTO800 

cLs 

P=5 

PAPER1L: INK2 

10 POKE46952, 12: POKE46953, 14: POKE45953, 61: POKE46954, 62: POKE44955, 24 
: POKE46956,8 

141i POKE 46957, 9: POKE46958, 62: FOKE47032, 12: POKE47033, 2: POKE47034,47:F 
OKE47035, 31 

12 POKE47036, 6: POKE47037, 4: POKE47038, 36: POFE47039, 31 

13 POKE46894, 0: FOKE46897, 0: PFOKE46898, 50: FOKE 46899, 30: FOKE44900, 30:PF 
OKE46901,16 

14 POKE44902, 16: POKE46993,16 

15 POKE46854, 12: POKE46857, 12: POKE46858, 30: POKE46859, 63: POKE46860,6 
3 

16 POKE46861, 12: POKE46862, 12: POKE448635, 12 

17 PRINTCHR$ (4) 

41 PLOTO,0, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa":PLOTO,0,2 

42 PLOTO, 71, "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa":PLOTO, 21,2 

50 FORN=0T041:READA, B,C: FORM=ATOB :PLOTA,C, 2: FLOTM+1,C, "a":NEXTM: NE 


OeruNnee 


XTN 
60 FORN=0T027: READA, B: PLOTB,A, "Ff": :NEXT:PLOTS,4," " 
63 PLOT2, 16, "a":PLOTS,16,"f":PLOT4,16," “:PLOTS, 16,"f":PLOT3,13, "a" 


64 PLOT6,13,"F" 
65 FORN=0T021:PLOT1,N, "a": PLOT32,N, "a": NEXT 

66 PLOT31,21,"a":PLOTI0, 12, "a":PLOT10,11,"a":FLOT9,2," " 
67 PLOT10,19,"£":PLOT10,17, "f":PLOT14,18, "f":PLOT12, 164," 
53, "a" 

70 PLOT2,1,"S": 
75 PLOTS1, 15, ° 
9,"s" 

76 PLOT31,20,"H" 
77 PLOT30,15,"5" 
a ad 

78 PLOT30,20,":" 

80 E$="m" 

85 A=FRE("") 

90 X=3: Y=3: A=0: B=0 

99 SOUNDS, 2,15 

100 AS=KEYS 

105 IFA$=""THEN150 

106 M=ASC (AS) 

110,IFM = 8 THENB=-1:IF M =8 THENA=O 

115 IFM =8 THENES="w" 

120 IFM = 9 THENB=1:IFM = 9 THENA=0 

125 IFM = 9 THENES="m" 

130 IFM =10 THENB=0:IFM =10 THENA=1 

140 IFM =11 THENB=0:IFM =11 THENA=-1 

150 X=X+A: Y=Y+B 

160 PLOTY ,X,E%:WAITQ1 :PLOTY ,X," " 

170 IFSCRN(Y+B, X+A) =97THEN4S00’HIT TREE 

180 IFSCRN(Y+B, X+A) =102THEN3SOO’HIT FLAG 

185 IFSCRN(Y+B, X+A) =124THEN900’ WON 

210 GOTO100 

300 ZAP 

305 PLOTY+B, X+A, “#" 

382 PLOTS,25 ,"HA HA HIT A FLAG!":WAIT40:PLOTS, 25, "ANOTHER LIFE G 
ONE" 

312 WAIT40:PLOTS, 25," 7 

315 P=P-1: IFP=OTHENS00’NO LIVES 

320 GOTO9O 


":PLOTI7 


PLOT2, 2, "T":PLOT2,3, "A":PLOT2,4, "R":PLOT2,5, "T" 
"sPLOTS1,16,"I":PLOTS1,17, "N":PLOTS1,18, "I":PLOT31,1 


:PLOT30,16,"i":PLOT30,17,"i":PLOT30O, 18, "i":PLOT30O,1 


400 ZAP 
410 PLOTY+B, X+A, “a":PLOTS, 25, "HA HA HIT A TREE! ":WAIT4O 

420 PLOTS, 25, "ANOTHER LIFE GONE" 

425 WAIT60:PLOTS, 25," " 

430 P=P-1: IFP=OTHENSOO’NO LIVES 

440 GOTO90 

SOO CLS:PAPER2: INKO 

505 PLOT12,10, "GUESS YOU RAN ":PLOT12,12,"OUT OF LIVES” 

508 FORA=12TO1STEP-1:PLAY7, 0, 0, 0:MUSIC3, 4, A, 15:WAIT7: NEXT: PLAYO, 0,0 


510 PLOT9,16,"PRESS *R’TO RERUN":PLOT12,18,"OR *S’TO STOP” 
530 REM 

560 REPEAT: A$=KEY$: IFA$="S"ORA$="s" THENEND 

570 UNTILA$="R"ORAS="r°'": RUN 
800 CLS 

810 PRINTCHR$ (12) 

815 PLOTO,1,20:PLOTO, 2,20 
820 PRINTCHR$ (4) CHR$ (27) "N 
825 PRINT:PRINT 

830 PRINT"MAKE YOUR WAY DOWN THE SLOPE MAKING" 


ORIC SKI-ING ": PRINTCHRS$ (4) 


831 PRINT 
832 PRINT"SURE YOU DON*T HIT THE FLAGS OR TREES" 
833 PRINT 
835 PRINT" YOU GET S LIVES,BUT BEWARE NOT TO GET" 
836 PRINT 


837 PRINT"DOUBLED KILLED,AS YOU LOOSE 2 LIVES " 
839 PRINT:PRINT:PRINT 

840 PRINT"USE YOUR CURSER KEYS TO MOVE" 

845 PRINT: PRINT: PRINT 

850 INPUT "ENTER SKILL LEVEL 11015(1=HARD)";Q1 

865 IFQ1<10RQ1>15THENS00 

870 GOTOS 

900 CLS 

901 FORA=1T012:WAIT4: : PLAY7, 0,0, 0:MUSICS, 4, A, 15:NEXT:PLAYO,0,0,0 
905 PLOT12,10,"WE HAVE A WINER" 

910 FORA=0TO7: PAPERA: WAITS: NEXT 

911 FORA=0TO7: PAPERA: WAITS: NEXT 

912 FORA=0T04: PAPERA: WAITS: NEXT 

920 FORA=1TO12 

930 WAIT4:PLOT9,12,"PRESS °R* TO RERUN":PLOT12,14,"0R *S* TO STOP" 
940 PLAY7, 0,0, 0:MUSICS, 4,A,15 

950 AS=KEY$: IFAS="r "ORA$="R" THENFLAYO, 0, 0, 0: RUN 

960 IFA$="S"ORA$="s" THENPLAYO, 0, 0,0:END 

970 NEXT: GOTO920 


1000 END 
1010 DATAS, 30, 1,6,8, 2, 13,30, 2, 25, 30, 3, 28, 30, 4, 27, 30,5, 1,3,6.9,10,6, 
22,22,6,29 
1020 DATA30, 6, 1,23, 7.30, 30, 7414758, 12, 23,8, 30, 30,8,1,6,9,17,22,9,1, 
4,9, 30,30 


1030 DATA9, 1,1, 10,30, 30, 16,1,1,11,29,30,11,1,1,12,10, 11,12, 29, 30,12 
vist, 13,9 

1040 DATA14, 13,22, 30,13, 1,1,14,5,15,14,21,30,14,1,1,14,1,1,15,5, 30, 
15.41, 1,0 

1050 DATAS,30,16,1,1,17,1,1,18. 19, 24.16,1,6,19,1, 30, 20 

1060 DATA3, 8.3.5.5, 5.5.8, 2,11,4,11,4, 1746.17, 3, 22,5, 22,7, 24,7 ,18,9 
.19,9 ,18 

1070 DATA12, 23, 19,23,11,19,13,19,10,15,12, 15,8, 
75135; 5,15 

1080 DATA4,16,4,16,2,17.9.19,9,19,12 

9000 INPUTP 

9100 WAITF 

9200 ZAP 


10,10,10,10,7,12, 


SUI}SI] LURISO1d 


aTeMIJOS 


Features — Oric Quickies Special 


Fountainia 
By M. J. Hall 


This is a program which draws a fountain and then a fountain effect is 
produced so that the water looks as if it is moving. It takes about 10-15 
minutes to run. 


REM XXXXXXXXXXK XX KKK KKK XK MK XX KK XK 
REM X DESIGNED BY MARTYN J.HALL « 
REM X JUNE 1983 x 
REM XXXXXXXKXX KX MX KKK KK XXX KKK KX KK 
5 PAPERO: INK1 
HIRES 
GOSUB S000 
PRINT CHR$(17) 
GOSUB 5100 
REM XXX LEFT HAND SIDE Xxx 
B=100:A=10 
FOR G=.25%-PI TO -1 * PI STEP-.015 
IF A=S5 THEN GOTO 70 
CURSET (120-C) +(COS(G)) #A, 190+ (SIN(G) ) *B, 1 
NEXT G 
C=C+3.5:A=A+5 
GOTO 30 
REM XXX RIGHT HAND SIDE XXX 
REM 
A=10 
100 FOR G=.75%-PI TO O STEP.015 
110 IF A=55 THEN GOTO 205 
120 CURSET (105+C)+(COS(G) ) #A, 190+ (SIN(G) ) &B, 1 
130 NEXT G 
140 A=A+S:C=C+3.5 
150 GOTO 100 
205 REM XXX WORKING FOUNTAIN Xxx 
210 P1=44520:P2=46120 
220 FOR C=1 TO 28 
230 P1=P1+640:P2=P2+640 
235 IF P1>=48520 THEN P1=44520 
236 IF P2>=48520 THEN P2=44520 
240 POKEP1,7:POKEP1+40, 7:POKEP1+80, 7 
241 POKEP2, 7:POKEP2+40, 7: POKEP2+80, 7 
250 IF P1i>=45760 THEN GOSUB 1000 
255 IF P2>=45760 THEN GOSUB 2000 
260 POKEP1, 1:POKEP1+40, 1:POKEP1+80, 1 
261 POKEP2, 1:POKEP2+40, 1: POKEP2+80, 1 
265 IF P1>=45760 THEN GOSUB 3000 
266 IF P2>=45760 THEN GOSUB 4000 
270 NEXT C 
280 GOTO 220 
1000 REM XXX COLOUR ON XXX 
1010 POKEP1+19, 1:POKEP1+59, 1:POKEP1+99, 1 
1020 POKEP1+23, 7:POKEP1+63, 7:POKEP1+103,7 
1030 RETURN 
2000 REM XXX COLOUR ON XxX 
2010 POKEP2+19, 1: POKEP2+59, 1: POKEP2+99, 1 
2020 POKEP2+23, 7: POKEP2+63, 7: POKEP2+103,7 
2030 RETURN 
3000 REM XXX COLOUR OFF XXX 
3010 POKEP1+23, 1: POKEP1+63, 1:POKEP1+103, 1 
3020 RETURN 
4000 REM XXX COLOUR OFF XXX 
4010 POKEP2+23, 1:POKEP2+63, 1: POKEP2+103, 1 
4020 RETURN 
5000 REM XXX TITLE XXX 
5010 CURSET95, 20, 3:N$="FOUNTAINIA" 
5020 FOR A=1 TO LEN(N$):CHAR ASC (MID$(N$,A, 1)),0, 1: CURMOV7, 0, 0: NEXT 
a 
5030 FOR F=44520 TO 48520 STEP40:POKEP, 1:NEXTP 
5040 RETURN 
5100 REM XXX INITIALIZATION Xxx 
5110 CURSET10, 190, 3:FILL10, 10, 20 
5120 CURSET134, 120,3:DRAW-12,0,1 
5130 DRAW2, 20, 1: DRAWO, 30,1 
5140 DRAW-S, 19, 1:DRAW18, 0, 1: DRAW-5,-19, 1: DRAWO,-30,1 
5150 DRAW2,-20,1 
5140 RETURN 


PLEAS. NoTE SOF You) +HAUE PROMS COADING THIS ABD... 
SiO Fok P= 44520 TO HRSQD STEP 4O: POKEP, 1: NEXTO 


We pay £6 for every program printed in this section. Send all entries to: The Editor, Oric Owner, 3, Club 
Mews, Ely, Cambs. CB7 4NW. 


44 Oric Owner 


Oric Quickies Special 


Oric Quickies Special 


Bomb 
By R. J. Turner 


This little program is simple, yet 
fun. An airplane flying across 
the screen drops a bomb on a 
moving boat when you press any 
key. The boat explodes when 
hit. The youngest child can play 
it with success, yet it amuses 
almost anyone. It uses the alter- 
nate character set in low resolu- 
tion graphics mode. You may 
use your own characters (poke 
them) to make a better plane or 
boat. A splash would also be 
beneficial for misses. 


100 
200 
250 
300 
350 
4600 
ka 6) 
606 
FOO 
7ia 
7is 
Pau 
730 
74G 
Fae 
780 
BOG 
FOO 
1900 
S4aee 
aon 


Sa T= 
2a7S 


2600 
S200 
Sooo 
3400 
3425 
=450 
S500 
S700 
4G 


SH$=CHR$ (76) +CHRS (94) +CHRS (93) 
APS=CHRS (84) +CHRS (88) +CHRS (48) 


PL$=""+AP$ 


EXS=CHR$ (116) +CHR$ (117) +CHR$ (119) 


PRINT CHR#(17) CHR (20) 
CLS:LORES i 

A=-1:B=0 

FOR S=37 TO © STEFP-1 
GOSUB 24c0 

PLOT 5,246,5H 


IF $¢{34 THEN PLOT S+3,24,"" 


IF Bé>0 THEN GOTO 750 
XE=KEYS 


TF X$<>"" THEN GOSUB 44600 


IF <30 THEN GOSUB 3306 
GOSUB 2400 
NEXT §& 
PLOT 2,25,"" 

SOTG S05 

4=6+1 

PLOT PLOT 37,0,"" 
A=0 

PLOT 4.0,FLS 
RETURN 

PLOT 2%.¥," 

E=C+Bs ¥=¥tE:s X=X+1 
IF X238 THEN X=0 
IF ¥Yr26& GOTG Soo 
FLOT &.¥,CHRS (35) 
iF ¥<26 GOTO 45006 
BH=0 

TF X<5S60TG 4500 

IF 2542 GOTO 45060 


300 GOSUB BooG . 
7 RUN 
> RETURN 
1? X=As Y¥=i:b=0.4:C=0 
¢ SHOOT 


4700 
Sao 
5100 
S200 


Sra 


ow ee 


RETURN 
PLOTS, 26,EX# 
EXPLODE 

WAIT 200 
RETURN 
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Oric Quickies Special 


Oric Renumber 
By G. M. Jackson 


The Program uses the following 
variables: 


DEEK (#9A) = start of basic 
program 
DEEK (#9C) = end of basic 


program = E 

A = address of basic program 
line = DEEK (A) 

N = Line number 

S = (initially) = start line num- 
ber from 

I = increment 


To use the program simply enter 
‘GOTO 63900’. 

An increment range of 1 to 100 
has been permitted but his is 
easily changed in line 63925. 


1700 
1710 
2620 
28208 
2836 
2040 
2059 
29668 
20706 
2080 
2216 
4009 
48190 
4050 
10906 
18010 
166420 
192330 
10035 
19.3937 
10040 
106850 
18100 
32767 


ANS=9.00 

FOR I=1 TO12 

PRINT 17°F "gop?=";3 
GOSUB 18900 

K=1*J 


IF T<¥.001 THEN 
PRINT "ANSWER IS 
REPLYS="" 

NEXT I 

PRINT “YOU SCORED 
GOTO 32767 


FOR H=1 TO 175 
ENTRYS=KEYS 
IF ENTRYS=""" THEN 
PRINTENTRYS; 

NEXT H 

PRINT | 

RETURN 

END 


J=6:REM FOR 6X TABLE 


T=ABS (K-VAL (REPLYS) ) 

IF T<@.901 THEN PING: ANS=ANS+1 

PRINT “CORRECT 
"sK:SHOOT 


"*eANS; 


62900 REMERENUMBER BY G.M.JACKSON COPYRIGHT i982 

52905 PRINT CHR#(12);5PC (C16) "RENUMBER": PRINT 

E3710 INPUT" COMMENCE LINE NUMBERS FROM":S 

S23915 IF Sti OR S:6273899 THEN GOTG 463910 

S39 INPUT“ INCREMENT BY"3 1 

5a IF i241 GR T2160 THEN GOTO 463926 

&2 2 #=DEEK (#94) sE=DEER CHO) 

at N=DEERK (At+23 

é. o FF N>=43900 OR ASE THEN PRINT" RENUMBER 
COMPLETED": EMD 

53945 DOKEA+2, $:5=5+1:A=DEEK (A) 

42950 GOTO 462935 


Timed Table Entry 


By Mrs P. Leake 


"3;GOTO 49083 


"OUT Of i2 ” 


REM GET ANSWER FROM” KEYBOARD 


16046 
REPLYS=REPLYS+ENTRYS 


Perhaps Mums and Dads will 
find this little program handy 
when their children come home 
from school saying they have a 
table test the next day. Mrs 
Leake’s daughter wanted a pro- 
gram which did not give her time 
to work out her tables in rote 
fashion. She scored full marks 
the next day on her six times 
table test! 


Line 10010 can be changed to 
‘FOR H = 1 TO 200° when a 
child is just learning. 


Line 1700 could be changed to: 


1700 J = INT (RND (1)* 12) for 
a fuller test. 


The advantage of this program 
is you can hear how well the 
children are learning without 
working yourself. 
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Snake 
By M. J. Hall 


FOKE#Z5A, 10 
GOSUB 1000 
E$=CHR$ (33) :CLS 
PRINT "ENTER THE VOLUME FLEASE (0-15)" 
PRINT"ANY OTHER KEYS WILL.BE TAKEN TO BE 0": INPUT VS 
V=VAL (V$) 21 VESINT(V) GR VSO OR VOLS THEN 3 
GOSUB 4000 
PLAY7,0,0,0 
P=49757:POKEF, 124 
> REPEAT 
S=S+1 
2 SOUND1,300,¥V 
O X=SINT(25XRND(1)) +1 
5S PRINT SPC(X)ES 
POKE 49103, 2U 
SOUND1, 200,¥V 
K$=KEY$:IF K$="" THEN K$=ASs 
» IF K$=CHR$(S) THEN POKEF:, 32:P=F-1:A$=K$:DI=1 
IF K$=CHR$(9) THEN POKEP, 32:P=P+1:A$=K$:DI=2 
POKEP, 124 
SOUND1, 100,v 
IF DI=2 AND PEEK (F441) 2232 THEN 210 
UNTIL PEEK (P+40) < 232 


ODN PW HO 


EXPLODE 
O PAPER7:CLS 
FRINT"YOUR SCORE WAS ":S 
PRINT 
IFSSWTHENFRINT"' THE HIGHEST SO FAR"ELSEPRINT" THE BEST WAS "3W;3"B 
3 MS 
PRINT 
IFS SWTHENW=S: INFUT"ENTER YOUR NAME PLEASE"; MS 
PRINT 
PLAYO,0,0,0:5=0 
+ oe : PRINT"DO YOU WANT ANOTHER GAME (Y/N) 
This is a short game where first REPEAT: GET A$:UNTIL A$="Y" OR AS="N" 
of all you have to enter the SF eae 
volume which you wish to have PLAY7;090,0 
PLOTS, 16, "XXXXXXXXXXXXXXXXXAXAXXKK" 
the sound played at. Then you O PLOTS, 11, "x x 
; PLOTS, 12,"X x" 
will have to steer your snake PLOTS. 13. "x x 
s PLOTS, 14, "X x" 
through the obstacles. If you hit PLOTS, 15, "XXXXXXXXXXXXXKXXXXXXXXK" 
FOR vc=1 TO & 
one of the obstacles si you g0 PLOT11,12,"THIS FROGRAM HAS" 
too far to the left, or you go into PLOT15, 13, "NOW ENDED" 
. . : : SOUND1, 300, 7 
the river, which is the blue strip 390 WAIT 50 . 
on the right, then you will be pee 
blown up. Obviously you have Seg allel 
i ibl NEXT C 
to keep going as long as possible ae kk 
to obtain a high score. When you WAIT 50:CLS: INK1 
: : PRINT CHR#(19) :END 
are destroyed your score 1S prin- 0 REM XXCHARACTER DEFINITIONXX 
H 7 O REM xX ROUT INE XX 
ted up together with the highest GC FOR N=90 TO 7:READX: FOKE (46080+264+N) ,X:NEXTN 
score, and then you are asked if 20 DATA #0, #1E, #3, #SF, #SF, HOF, #1E, HOC, HOC 
FOR N=0 TO 7:READX: PGKE (44080+992+N) ,X:NEXTN 
you want another game or not. O DATA #3F. #57, #57, #2F, #16, #1E, #00, #0C 
é * RETURN 
N.B. The snake will continue REM XX ROUTINE SET UF XX 
going in the direction chosen om eee 
unless it is changed. See ere aes ae 
GC PRINT SPC(XiES 
a NEXTY 
CONTROLS ® FOR F=48068 TO 49108 STEF4S 
POKEF, 20 
LEFT CURSOR - to go left Ane WEEE 
RIGHT CURSOR - to go right vee 
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Oric Quickies Special oO 
Oric Quickies Special 
Hires Demos ee 


that produce patterns in HIRES 


By H. S. Liam mode. 


Program 1 
The above program will fill the ee 
screen with different sized rec- 20 HIRES 
tangles in different colours. It SO PRINT CHR$(17):REM REMOVES THE FLASHING CURSOR 
d aden 2s d d CURSET 0,6,3:FILL 200,40,16:REM INITIALLY FILL 
EES LAG: UBpEee ane SCREEN WITH BLACK BACKGROUND 
flexibility of the FILL com- QO CURSET INT(RND (i) *200), INT(RND(1)*180),3 
mand. Larger rectangles can be FILL 1O0+4INTCRND(1)*11),5+INTCRND(1)*2), 
obtained by changing the num- PR A aac air | 
. . ct a wae 
bers in lines 50 and 60 but care 
has to be taken not to exceed the 
screen size. Line 40 is required 
because of the properties of the 
attribute. 


Program 2 
PAPER G:INK 7 This program uses the CIRCLE 
HIRES command to fill up the circle. It 
PRINT CHRS (17) : also demonstrates the use of the 


P=RND (1) *40+80 FB code 2 to invert colours in 
FOR B=l TO 2 


INK 1+RND(1)*7 the CIRCLE command. For a 
FOR A=1 TO 56 bit extra add in these lines: 
CURSET R,R-20,8:CIRCLE A,2 
CURSET R-20,R,8:CIRCLE A,2 
100 CURSET R+2@,R,@:CIRCLE A,2 25 GOSUB 506 
118 CURSET R,R+20,6:CIRCLE A,2 500 FOR A=49961 TO 48923 STEP 40 
12@ NEXT A,B 510 POKE A, -1+RND(1)*7 
138 GOTO 48 — 528 NEXT A:RETURN 
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Oric a special 


" pANDOM on 


Q 9 
: ° 2 
b “5. 2 & 


b& 
10 CLS 84 PRINT: PRINT 
15 PRINT 88 G=G+ti 
20 PRINT "RANDOM NUMBERS 89 PRINT"ENTER GUESS NO. ";G 
SO FRING “soses— ===> 90 INPUT N 
40 PRINT: PRINT 100 IF N=X THEN 140 
SO X=INT(RND(1) *200)+1 110 IF N<X THEN PRINT "TOO LOW" 
71 PRINT “THE COMPUTER HAS PICKED A NUMBER FROM" 120 IF NX THEN PRINT "TOO HIGH" 
72 PRINT "i TO 200. YOU’RE JOB IS TO GUESS IT" 120 GOTO 88 
73 PRINT "YOU DO THIS BY TYPING IN YOUR GUESS" 140 PRINT "THAT IS IT" 
74 PRINT "THE COMPUTER WILL THEN RESPOND BY" 150 PRINT "YOU GOT IT IN ":G;"GUESSES" 
75 PRINT "GIVING YOU A MESSAGE OF EITHER:”" 155 GOSUB 2710 
76 PRINT:PRINT SPC(4)"TOO HIGH" 160 PRINT:PRINT "DO YOU WANT ANOTHER GO" 
77 PRINT SPC(7) "OR" 170 INPUT A% 
78 PRINT SPC(4)"TOO LOW" 180 IF LEFTS(A$,1)="Y"THEN 10 
79 PRINT:PRINT"HIT A KEY TO CONTINUE" 190 IF LEFTS(A$,1)="N"THEN CLS: END 
80 GET At 200 CLEAR: GOTOi70 
81 CLS 210 IF G¢<S THEN FRINT "VERY GOOD": RETURN 
82 PRINT: PRINT"RANDOM NUMBERS" , 220 IF G>10 THEN PRINT "THAT IS FAIR":RETURN 
SS PRINT = .2s——. --Soe== " 230 PRINT “YOU NEED A LOT MORE PRACTICE! !!":RETURN 
10 REM %&screen copy EPSON printerkk 
20 REM draw circles program 
25 HIRES: PAPER 7: INK O 


100 REM 

6000 REM &&screen copy programkk 

6010 LPRINT CHR$(27)5;"A"3CHR$(7)5:REM line spacing 
6020 FOR X=48920 TO 48959 

6030 LPRINT CHRS(27) 5; "K"53CHRS (200) sCHR#(0);:REM bit image printing 
6040 FOR Y=X TO X-7960 STEP-40 

6050 POKE 48,0:C=PEEK CY) 

6060 D=INT ((C/64-INT (C/64) ) #644, OS) KSGN(C/64):REM 8 to 6 nae 

6070 LPRINT CHR#(D)5;:REM “rints screen 

6080 NEXT Y 

6090 LPRINT CHR®(10)3;:REM line feed 

6100 NEXT X 

6110 LPRINT CHR$(27) ;CHR®(S50):REM normal line spacing 

6120 PING: END 


FOR A=30 TO 210 STEP 30 

FOR B=30 TO 180 STEP 30 

CURSET A,B,3:CIRCLE 15,1 

NEXT B:NEXT A 

CURSET 120,105,3 

FOR N=89 TO 1 STEP-S:CIRCLE N,1 
NEXT N 
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Oric Quickies Special 


Guess the number 


? 
ae 
er, 


5 € 
10 
20 
25 
oO 
&0 
7a 
B6 
85 
30 
1106 
115 
i150 
i606 


200 


250 


oOoOD 


Ls 
PRINT"GUESS THE 
LET A=RND(1)k10 


NUMBER BETWEEN 1 AND i090" 


LET A=INT(A) 
INPUT B 
IF A=B THEN BO 
IF Ac>B THEN 110 
PRINT “WELL DONE" 
PING 
END 
FPRINT"YOU ARE WRONG 
ZAP 
PRINT"DO YOU WANT ANOTHER GO"ENS; "CY/N) >" 
INPUT AS 
IF At="¥"THEN GOTO i106 
IF AB="N" THEN 200 
PRINT “NOT VERY CLEVER ARE YOU!!!" 


Random Sketch 


By R. Massey 


Following on from the Pattern 
program in last issues Oric 
Quickies, here is another pro- 
gram to draw interesting 
displays on the screen. To give a 
better effect a random note is 
played while the picture is being 
drawn. This program is easily 
modifiable to give other 
interesting patterns. 


HIRES 
CURSET®,0,9 

FORX=l TO 98 
A=INT(RND(1)*6) +1 
CURSETG,X,1 

SOUND], (X*2.5) /3,10 

FILL 1,1,A:NEXTX 

CURSET 120,1998,1 

FOR N=l TO 75 

X= (109-10) *RND (1) +19 

Y= (59-198) *RND (1) +19 
SOUND1,X*2.83,7 

CURSET 120,100,9:WAITIG 
DRAWX,Y,1 
CURSET120,190,1:DRAW-x,Y,1 
CURSET120,190,1:DRAWX,-Y,1 
CURSET1290,100,1:DRAW-X,-Y,1 
NEXT: PLAYG,0,0,0 
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Calling all Advertisers! 


The Oric Owner is the only magazine 
devoted to the Oric-1 computer. 


Virtually every person who buys an Oric 
will get this magazine. If you are selling 
Oric related products can you afford to 
miss this chance to reach the market you 
are aiming for? 


For full details of our advertising rates 
contact Carolyn on Ely 2271 and see if she 
can help you. 


70 Water Street, 
Chesterton, Cambridge Tel: 61608 


NOTICE FROM OVACAM 


We kindly request that Orics 
sent for repair from Customers 
and Dealers need a detailed 
letter sent with them, explaining 


exactly what the problem is and 
after how long the problem 
occurs. 


The letters received at the 
moment are not detailed enough. 
Please remember to enclose 
names and addresses as well. 


IVYSOFT 


is pleased to announce its move to new premises at 36 
New Street, Barbican, Plymouth to be known as 


THE SOFTWARE SHOP 


Widest range of home computer software in the South 
West including most of the Oric software advertised in 
this magazine. To celebrate the new opening we will 
be offering a 10% discount on all orders received by 
August 31. Call, write or telephone for free price list. 
Export orders (tax free) welcome. Mail and telephone 
enquiries to: IVYSOFT, 91 Cleeve Drive, Ivybridge, 
Devon. Tel: (07554) 4088. 
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THE FLEXIBLE COMPUTER SYSTEM FOR THE FUTURE 


16K ORIC 

Was £129.00 inc. Now only £99.95 inc. 
48K ORIC 

Was £169.95 inc. Now only £139.95 inc. 
Plus £40 printer voucher free with every 
computer purchase. 
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ORIC 
SOFTWARE 


(available on cassette only. Prices include VAT and post and 
packing) 


ORIC FORTH language. Requires 48k machine 
Price £15.90 


ORIC BASE for the maintenance of personal and small 
business information. Requires 48k machine 
Price £15.40 


ZODIAC adventure game. Requires 48k machine 
Price £10.39 


ORIC CHESS Reauires 48k machine 


Price £10.39 Oric Products are pleased to announce the release of the 
ORICMON aA complete machine code monitor. Either 16k four-colour printer 
A\2 or 48k machines The Printer uses standard 45 inch paper and ts switchable 
Price £15.90 between 40 and 80 characters per line 
N\) HOUSE OF DEATH game. Requires 48k machine The writing mechanism ts a clever arrangement of four 
\> Price £10.39 : miniature ball-point pens (red, green, blue and black inks.) 
There are 15 programmable character sizes and four different 
os MULTI GAMES PACK 2 Reauires 48k machine drawing angles 
Price £7.30 The pen plotting facility allows the drawing of complex 
wes ORIC MUNCH game. Requires 48k machine diagrams and pictures 


Price £8.35 The price includes an integral power supply and printer lead 


You may place your order by phoning our telesales number on ELY (0353) 2271/2/3/4 or by completing the postal form below: 


Payment may be made by cheque, postal order, Name Description Price 
Barclaycard Visa or Access. 

All cheques and postal orders should be made Address 

payable to Tansoft Ltd. 

For credit card payment please quote Access, 

Barclaycard Visa No. 


All orders should be sent to Tansoft Ltd, Full colour brochure and software catalogue TOTAL 
3 Club Mews, Ely, Cambs CB7 4NW is available on request. Trade enquiries welcome. All prices are inclusive of VAT 


Regulars 


: 


V3 
UO 


| Dear Sir, 


Recently I have discovered that 
by leaving a 3.5mm jack plug in 
the extension speaker socket on 
my cassette recorder and using 
the ORIC 3 pin din lead, I could 
save and load whereas before I 
could only save programs and 
not load them. After seeing the 
letter in the Oric Owner magaz- 
ine about the problem that som- 
eone else was having, I thought 
this could be useful to someone 
else who can save but can’t load 
using the ORIC lead providing 
the sound comes out of the 
speaker of their cassette 
recorder when they are trying to 
load. 


Dear Sir, 


Being the proud owner of an 
‘ex-space invader type colour 
monitor’, I undertook to inter- 
face it to my son’s Oric-1 com- 
) puter. The colour monitor 
required an input of 1 volt into 
75 ohm (for the three colour 
inputs and synch). By inspection 
I discovered that the Oric-1 
video outputs were standard 
T.T.L. 


Thus it was necessary to inter- 
face the Oric-1’s T.T.L. output 
to the video input for the moni- 
tor. The circuit I used to achieve 
this, is shown below and may be 


Also I have got a problem that I 
was wondering if you could 
solve. That is that I have 
recently bought a lead to con- 
nect the ORIC to my stereo and 
I have found that with the 
GROUND connected up, sound 
comes out of the ORIC speaker 
as well as on my stereo, and so 
could you tell me if this is 
correct? 


I see from the magazine that you 
are doing an ORIC QUICKIE 
section, and I was wondering if 
you would do a section for long 
programs, only some of my pro- 
grams are too long for that 


section. 
M. J. Hall 


of interest to other Oric-1 users 
with similar intentions.. One 
word of caution, the monitor 
MUST have an ‘Isolated mains 
supply’ and a suitable isolating 
transformer must be employed if 
one is not fitted. 


The unit was built on ‘Vero- 
board’ and mounted adjacent to 
the monitor. Incidently the two 
150 ohm resistors may be altered 


Editor: If the sound of the cas- 
sette is coming through your 
Oric’s speaker then you pro- 
bably have one of the signal 
leads connected to the extension 
speaker pins on the Oric’s cas- 
sette socket. We are looking for 
all types of Oric programs, 
‘Quickies’ and ‘Slowies’. 


to match different impedances, 
and becomes a voltage lossless 
emitter follower when no re- 
sistors are fitted. 


Component list 
All resistors %4 Watt 5% 


QTY. VALUE in ohms. 
8 470 
8 150 
4 1K 
4 22K 


Transistors: One BC213 L and 
One BC183 L (OR NEAR 
EQUIVALENT). Note only 
ONE of the four identical cir- 
cuits is shown above. 


P. D. Cubitt 
meus 
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Subscription 


Why you should 
subscribe to 
ORIC OWNER 


Your Oric 1 is one of the most powerful low-cost computers on the market today. Oric 


Owner is the only magazine totally dedicated to the Oric and its supporting hardware 
andsoftware. 


From issue to issue Oric Owner is able to bring you in-depth information on the Oric, 
advance news on the latest add-ons, superb programs to try and ‘behind thescenes’ 
interviews with the engineers who designed it. 


If you wish to keep ahead of the latest developments and news on the Oric then Oric 
Owner is essential. At only £10 for a year’s subscription of 6 issues (£15 for overseas 
readers) can you afford to be without Oric OWner? 


SUBSCRIBE TODAY! 


subseription form 
Please send me the next 6 issues of ORIC OWNER 


Starting froM ISSUE ........:cceceeeeeeeeees 


| enclose a CHEQUE/ACCESS ...........c5 0 ceeeeeeeeteeeeeeeeeeeeeeeeenaueeeeeeeeeeeeeeeaeanes for£10 


PLEASE NOTE: All cheques must be made payable to: Tansoft Ltd, 3 Club Mews, Ely, 
Cambs CB7 4NW 
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The ORIC-1 
a Created by Tangerine... 
’ Supported by T.U.G. 


Tangerine Users Group 
An independent users group 
with a solid reputation. 


war pre ean ve FULL 
SYSTEM SUPPORT! 


We have a proven record of 
performance with the 6§02 
system. SEND £1.00 & S.A.E. (A4) 


Monthly wan: 
Newsletters — 
Software , advice, 


Hardware, reviews 
and lots more... 


for details send A4 S.A.E. 
to— Tangerine Users Group 
1 Marlborough Dr, Worle, Avon. 


BS 


TOP QUALITY SOFTWARE 
FOR THE ORIC-1 COMPUTER 


A highly sophisticated program which all 
serious ORIC programmers will want to 
own. Labels of any length; numbers may 
be specified in hex, decimal, binary, or 
octal; simple arithmetic on operands; 
standard editor facilities. Simple to use, 
yet highly versatile with all the following 
directives available: OPT, ORG, EQU, RES, 
DEFB, DEFW, DEFS. Supplied with clear 
and comprehensive documentation 


Please State Memory Size When Ordering. 


WORLD GEOGRAPHY (48K) £7.95 


Educational program aimed to develop 
a student's knowledge of the capital 
cities and populations of the countries 
of the world. A beautifully drawn high- 
resolution map of the world is used to 
pinpoint the locations of the countries, 
which is particularly useful for the less 
well-known ones. The tests are graded 
to give progressive levels of difficulty. 
Makes education enjoyable! 


TOOLKIT (16K/48K) £7.95 


A high quality programmer's aid which 
can be used on its own, or as a comp- 
lement to our excellent ASSEMBLER 
program. The TOOLKIT includes a full 
disassembler allowing output to memory, 
a monitor which enables you to step 
through your program one instruction at a 
time, COPY, VERIFY, SEARCH, and op- 
tional output to a printer. A must for all 
ORIC programmers. Full documentation 
supplied 


Please State Memory Size When Ordering. 


WE PAY 25% ROYALTIES FOR HIGH QUALITY ORIC, B.B.C. MICRO, ELECTRON PROGRAMS 


ALL PRICES INCLUDE 
V.A.T. AND P. & P. 


DEALER ENQUIRIES WELCOME 


WE GUARANTEE THAT: 

(1) All our software is available before we advertise. 

(2) All our software is despatched within 48 hours by First Class Post 

(3) In the unlikely event that any of our software fails to load, return 
your cassette or disc to us and we will immediately send a 
replacement 


SUPERIOR SOFTWARE 
Dept. 001, 

69 Leeds Road, Bramhope, Leeds. 
Tel: 0532-842714 
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LIGHT CYCLE 


REAL SOFTWARE 


FOR YOUR 


ORIC 1 


AVAILABLE NOW 
DIRECT FROM 
P.S.S. 


PERSONAL 

SOFTWARE SERVICES 
FOR INSTANT CREDIT CARD 
SALES TEL (0203)667556 


CHEQUE OR P.O. TO PSS. 
452 STONEY STANTON RD. 
COVENTRY CV6 5DG. 


TRADE ENQUIRIES CONTACT JOHN FLETCHER, 


CENTIPEDE 


CENTIPEDE 


AN ALL MACHINE CODE 

VERSION OF THE ARCADE GAME. 
FEATURES:— MUSHROOMS, 
SPIDERS, FLEAS, MUSHROOM 
LAYING BEETLES, SOUND, 
COLOUR, HI RES. GRAPHICS, 
HIGH SCORE TABLE, GAME RESET 


THIS PROGRAM HAS BEEN 
APPROVED BY ORIC 
PRODUCTS INTERNATIONAL 


6-95 


AVAILABLE SOON 
LIGHT CYCLE 


YOU HAVE BEEN CHOSEN BY 
THE M.C.P. TO RACE ON THE 
INFAMOUS GRID. CAN YOU 
SURVIVE? 100% MACHINE 
CODE. 1 OR 2 PLAYERS, RACE 
THE COMPUTER OR ANOTHER 
PLAYER. ..SO FAST YOU 
WON'T BELIEVE IT!! 


6-95 


PA \ 4 
FLED i 
a 


ORIC-MON 


INVADERS 


INVADERS 


QUITE SIMPLY THE ULTIMATE 
VERSION OF “SPACE 


INVADERS” AVAILABLE TODAY. 


FEATURES:— ALL MACHINE 
CODE, SMOOTH ACTION LASER 
BASE, “LIVE” ALIENS, 
CRUMBLING WALLS, EXPLO- 
SIVE SOUND EFFECTS, FULL 
COLOUR, HI RES. GRAPHICS, 
INCREASING GAME SPEED, 
BONUS POINTS, MOTHER 
SHIPS AND MORE.... 


6-95 
ORIC-MON 


ORIC-MON IS A POWERFUL 
MACHINE CODE MONITOR 
PLUS A FULL DISASSEMBLER 
FOR YOUR ORIC 1. AN 
ESSENTIAL SOFTWARE TOOL 
FOR WRITING, DEBUGGING 
AND RUNNING YOUR MACHINE 
CODE PROGRAMS OR MACHINE 
CODE SUBROUTINES TO BE 
CALLED FROM BASIC. CON- 
TAINS ALL THE FEATURES 

OF MONITORS FOUND ON 
MUCH LARGER MACHINES. 

A SUPERB PROGRAMMING AID 
FOR YOUR ORIC 1. 


HOPPER 


ALL MACHINE CODE VERSION 
OF “FROGGER” FOR YOUR 
ORIC 1. 

FEATURES:— VARIABLE SPEED 
TRAFFIC, 3 LANE HIGHWAY, 
SNAKES, TURTLES, DIVING 
TURTLES, FLEAS, LOGS, 
DECREASING TIME LIMIT, 
EVER INCREASING GAME 
SPEED, HI SCORE TABLE, FULL 
COLOUR, AMAZING GRAPHICS, 
SUPERB SOUND. YOU HAVEN'T 
PLAYED “FROGGER” UNTIL 
YOU'VE PLAYED “HOPPER”. 
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AVAILABLE SOON 
THE ULTRA 


THIS IS THE GAME FOR ALL 

YOU ARCADE WIZARDS OUT 
THERE. . ZAPPING ALIENS 

WAS EASY UNTIL “THE ULTRA”... 
THIS GAME IS TOTALLY 

WRITTEN IN MACHINE CODE 

TO MAKE IT THE FASTEST, 
TRICKIEST ARCADE GAME 

OF THEM ALL. 

16 DIFFERENT SCREENS COLOUR, 
SOUND AND HI RES. GRAPHICS 


6-95 


HOPPER 


